'<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>