File:  [Coherent Logic Development] / freem / mlib / %ZREVQRY.m
Revision 1.1: download - view: text, annotated - select for diffs
Sun Jan 19 02:04:04 2025 UTC (2 months, 2 weeks ago) by snw
Branches: MAIN
CVS tags: HEAD
Initial revision

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

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