From 136ce7c9afb5e103133fe6e423e6dad3d23db38d Mon Sep 17 00:00:00 2001
From: Chouser <chouser@n01se.net>
Date: Sun, 15 Feb 2015 14:10:47 -0500
Subject: forth: Split types for user fns vs native fns

---
 forth/printer.fs | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

(limited to 'forth/printer.fs')

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 ;;
-- 
cgit v1.2.3