File:  [Coherent Logic Development] / freem / mlib / %ZREVQRY.m
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Sun Jan 19 02:04:04 2025 UTC (2 months, 2 weeks ago) by snw
Branches: CoherentLogicDevelopment
CVS tags: start
FreeM

%ZREVQRY ;
    N RESULT,PREV
    S RESULT=$$REVQUERY^%SYSPOLY(%INT.REVQ,.PREV)
    K %INT.REVQ
    Q PREV

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>