M lib/min_io.nim → lib/min_io.nim

@@ -23,6 +23,9 @@ .symbol("puts") do (i: In):
       let a = i.peek
       echo $$a
   
+    .symbol("puts!") do (i: In):
+      echo $$i.pop
+
     .symbol("notice") do (i: In):
       let a = i.peek
       notice $$a
@@ -121,6 +124,9 @@ .symbol("print") do (i: In):
       let a = i.peek
       a.print
   
+    .symbol("print!") do (i: In):
+      i.pop.print
+
     .symbol("fread") do (i: In):
       var a: MinValue
       i.reqString a

M lib/min_lang.nim → lib/min_lang.nim

@@ -666,12 +666,6 @@ i.reqStringLike k
       i.reqDictionary d
       i.push i.ddel(d, k)
 
-    .symbol("dprint") do (i: In):
-      var d: MinValue
-      i.reqDictionary d
-      for v in d.qVal:
-        echo "$1: $2" % [$v.qVal[0], $v.qVal[1]]
-
     .symbol("keys") do (i: In):
       var d: MinValue
       i.reqDictionary d

M prelude.min → prelude.min

@@ -35,18 +35,6 @@ ((() cons cons cons) dip swap i)  :bury3
 
 ('swons 'popd 'dupd 'swapd 'q 'k 'b 'c 'take 'dig1 'dig2 'dig3 'bury1 'bury2 'bury3) 'seal foreach
 
-; Other
-(print pop)                                    :print!
-(dprint pop)                                   :dprint!
-(puts pop)                                     :puts!
-(call pop)                                     :call!
-(:ms :q :check (check) (ms sleep q) while)     :interval
-(password aes encode)                          :encrypt
-(decode password aes)                          :decrypt
-
-('print! 'dprint! 'puts! 'call! 'interval 'encrypt 'decrypt) 'seal foreach
-
-
 ; Unsealed symbols
 ()                                :startup
 ("[$1]$$ " (.) %)                 :prompt