M minpkg/lib/min_global.nim → minpkg/lib/min_global.nim

@@ -593,6 +593,8 @@ let sym = vals[0]
     var q1 = vals[1] 
     var symbol: string
     symbol = sym.getString
+    if not symbol.contains re(USER_PATH_SYMBOL_REGEX):
+      raiseInvalid("Symbol identifier '$1' contains invalid characters." % symbol)
     info "[bind] $1 = $2" % [symbol, $q1]
     let res = i.scope.setSymbol(symbol, MinOperator(kind: minValOp, val: q1))
     if not res:
@@ -604,8 +606,10 @@ let sym = vals[0]
     var q1 = vals[1]
     var symbol: string
     symbol = sym.getString
+    if not symbol.contains re(USER_PATH_SYMBOL_REGEX):
+      raiseInvalid("Symbol identifier '$1' contains invalid characters." % symbol)
     info "[lambda-bind] $1 = $2" % [symbol, $q1]
-    let res = i.scope.setSymbol(symbol, MinOperator(kind: minValOp, val: q1))
+    let res = i.scope.setSymbol(symbol, MinOperator(kind: minValOp, val: q1, lambda: true))
     if not res:
       raiseUndefined("Attempting to lambda-bind undefined symbol: " & symbol)
 

M tests/global.min → tests/global.min

@@ -838,6 +838,12 @@ while
     x y t + + 20300 ==
   ) test.assert
 
+  (
+    {2 :value (3 *) ^times3} :test1
+    test1.value test1.times3 @test1.value
+    test1.value 6 ==
+  ) test.assert
+
   test.report
   ;; Tidy up
   stack.clear