mirror of
https://github.com/PDP-10/its.git
synced 2026-01-21 02:08:50 +00:00
26 lines
650 B
Plaintext
26 lines
650 B
Plaintext
'<PCODE "FMACRO">
|
|
|
|
<PACKAGE "FMACRO">
|
|
|
|
<ENTRY FAST-MACROS>
|
|
|
|
<USE "HASH">
|
|
|
|
<NEWTYPE NORMAL-MACRO LIST>
|
|
|
|
<COND (<NOT <APPLYTYPE NORMAL-MACRO>> <APPLYTYPE NORMAL-MACRO MACRO> <SETG
|
|
FAST-MACRO (T)>)>
|
|
|
|
<GDECL (FAST-MACRO) LIST>
|
|
|
|
<SETG FAST-MACROS %<RSUBR!- '[ %<PCODE!- "FMACRO" 0> FAST-MACROS #DECL ("VALUE"
|
|
STRING "OPTIONAL" ANY) HASH T MACRO %<RGLOC FAST-MACROER T> %<RGLOC APPLY T> %<
|
|
RGLOC FAST-MACRO T> "DONE" %<TYPE-W NORMAL-MACRO LIST> EXPAND]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,FAST-MACROS PGLUE ![805302272!]>>
|
|
|
|
|
|
<SETG FAST-MACROER %<RSUBR-ENTRY '[FAST-MACROS FAST-MACROER #DECL ("VALUE" ANY
|
|
MACRO "ARGS" LIST)] 51>>
|
|
|
|
<ENDPACKAGE>
|