diff options
Diffstat (limited to 'src/interp/lisp-backend.boot')
| -rw-r--r-- | src/interp/lisp-backend.boot | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index e0d5a80e..bb61333e 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -805,3 +805,9 @@ COMPILE1 fun == ['DEFMACRO,name,newArgs,:body] compileLispDefinition(name,body) body + +assembleCode x == + if $PrettyPrint then PRETTYPRINT x + if not $COMPILE then SAY '"No Compilation" + else COMP370 x + first x |