mirror of
https://github.com/PDP-10/its.git
synced 2026-01-20 09:55:52 +00:00
27 lines
999 B
Plaintext
27 lines
999 B
Plaintext
'<PCODE "FOLD">
|
|
|
|
<PACKAGE "FOLD">
|
|
|
|
<ENTRY FOLD SHARE-FLG MACRO-FOLD SUBR-FOLD>
|
|
|
|
<AND? <SETG SHARE-FLG <>> <SETG MACRO-FOLD <>> <SETG SUBR-FOLD T> <SETG COUNT 0>
|
|
<GDECL (SHARE-FLG SUBR-FOLD MACRO-FOLD) <OR ATOM FALSE> (COUNT) FIX>>
|
|
|
|
<SETG FOLD %<RSUBR!- '[ %<PCODE!- "FOLD" 0> FOLD #DECL ("VALUE" <OR !<FALSE
|
|
STRING!> <LIST FIX STRING>> ATOM "TUPLE" <TUPLE [REST ATOM]>) MANIFEST?
|
|
FCN-NAMES (<TUPLE [REST ATOM]>) %<RGLOC COUNT T> CHANNEL "CONSTANTS FOLDED" #
|
|
FALSE ("NOT-A-GROUP") QUOTE GVAL %<RGLOC SUBR-FOLD T> %<RGLOC SUBRS T> %<RGLOC
|
|
CHECK T> POOR-EVALUATION-RESULT!-ERRORS EVALS-TO:!-ERRORS FOLD %<RGLOC
|
|
MACRO-FOLD T> T]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,FOLD PGLUE ![805306367 -4294967296!]>>
|
|
|
|
|
|
<SETG SUBRS '![* + - / 0? 1? ==? =? ABS ANDB ASCII ATAN BITS CHTYPE COS DECL?
|
|
EMPTY? EQVB EXP FIX FLOAT G=? G? GETBITS L=? L? LOG MAX MIN MOD MONAD? N==? N=?
|
|
ORB PNAME PRIMTYPE PUTBITS SIN SQRT STRCOMP STRUCTURED? TYPE TYPE? TYPEPRIM XORB
|
|
!]>
|
|
|
|
<GDECL (SUBRS) UVECTOR>
|
|
|
|
<ENDPACKAGE>
|