janet/interpreter.janet

@@ -221,11 +221,9 @@
     ", "))
 
 (defn- stringify* [value]
-  (print "stringifying " (string value))
+  (def typed? (when (dictionary? value) (value :^type)))
-  (def typed? (when (dictionary? value) 
-    (print "value is a dictionary")
-    (value :^type)))
   (def type (if typed? typed? (type value)))
+  (print "stringifying " (string value))
   (case type
     :nil ""
     :number (string value)
@@ -240,7 +238,6 @@
     :set
       (string/join (map stringify (keys value)) ", ")
     :ref (stringify (value :^value))
-    :fn (string "fn " (value :name))
     # XXX: pkg, fn 
   ))
 
@@ -505,9 +502,10 @@
 
 (do 
 (set source `
-#{:a 1, :b 2}
+fn foo () -> :foo
+let bar = #{foo}
+bar :foo ()
 `)
 (def result (run))
-(stringify result)
 )
 

janet/validate.janet

@@ -615,7 +615,6 @@ Imports are for a later iteration of Ludus:
    :use (usee validator)
    :loop (loopp validator)
    :recur (recur validator)
-   :ref (ref validator)
    (error (string "unknown node type " type)))))
 
 (set validate validate*)