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

@@ -795,14 +795,14 @@ 
     .sigil("/") do (i: In):
       i.push("dget".newSym)
 
+    .sigil("%") do (i: In):
+      i.push("dset".newSym)
+
     .sigil(">") do (i: In):
       i.push("save-symbol".newSym)
 
     .sigil("<") do (i: In):
       i.push("load-symbol".newSym)
-
-    .sigil("*") do (i: In):
-      i.push("seal".newSym)
 
     .sigil("#") do (i: In):
       i.push("quote-bind".newSym)

M minim.nim → minim.nim

@@ -202,7 +202,7 @@ 
   var REPL = false
 
   let usage* = """  $1 v$2 - a tiny concatenative shell and programming language
-  (c) 2014-2016 Fabio Cevasco
+  (c) 2014-2017 Fabio Cevasco
   
   Usage:
     minim [options] [filename]
@@ -250,4 +250,4 @@ elif REPL:
     minimRepl()
     quit(0)
   else:
-    minimFile stdin, "stdin"
+    minimFile stdin, "stdin"

M tests/lang.min → tests/lang.min

@@ -127,7 +127,7 @@ ) try get-stack ("MinEmptyStackError" "finally") ==) assert
 
   ("aaaa" :cd cd "aaaa" ==) assert ;It is possible to shadow sealed symbols in child scopes
 
-  (((2 :a1 *a1 3 :a1) ("failed")) try "failed" ==) assert
+  (((2 :a1 'a1 seal 3 :a1) ("failed")) try "failed" ==) assert
 
   (
    (
@@ -156,7 +156,7 @@ (((a 1)(b 2)(c 3)) dictionary?) assert
 
   (((a 1)(b 2)(c 3)) 'b dget 2 ==) assert
 
-  (((a 1)(b 2)(c 3)) ' :dict dict 5 'b dset 7 'd dset =newdict newdict ((a 1)(b 5)(c 3)(d 7)) ==  dict ((a 1)(b 2)(c 3)) == and) assert
+  (((a 1)(b 2)(c 3)) ' :dict dict 5 'b dset 7 %d =newdict newdict ((a 1)(b 5)(c 3)(d 7)) ==  dict ((a 1)(b 2)(c 3)) == and) assert
 
   (((a 1)(b 2)(c 3)) ' :dict dict 'b ddel =newdict newdict ((a 1)(c 3)) == dict ((a 1)(b 2)(c 3)) == and) assert