diff options
Diffstat (limited to 'forth/printer.fs')
| -rw-r--r-- | forth/printer.fs | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/forth/printer.fs b/forth/printer.fs index 39ddb8e..0474944 100644 --- a/forth/printer.fs +++ b/forth/printer.fs @@ -62,7 +62,9 @@ def-protocol-method pr-pairs-buf ( str-addr str-len this -- str-addr str-len ) MalDefault extend pr-buf { this } - s" #<MalObject" str-append a-space + s" #<" str-append + this mal-type @ type-name str-append + a-space this int>str str-append s" >" str-append ;; drop @@ -117,16 +119,6 @@ MalInt MalInt/int @ int>str str-append ;; drop -MalFn - extend pr-buf - drop s" #<fn>" str-append ;; -drop - -SpecialOp - extend pr-buf - drop s" #<op>" str-append ;; -drop - MalSymbol extend pr-buf unpack-sym str-append ;; |