Uppercase symbol names

2026-04-20 16:16:34 +00:00 · 2024-07-06 07:46:16 -07:00
parent cf8d13f067
commit 04146f954a
1 changed files with 2 additions and 1 deletions
@@ -126,7 +126,7 @@ def new_sym(symstr)
  symptr=>natv   = NULL
  symptr=>lambda = NULL
  memcpy(symptr + name, symstr + 1, ^symstr)
-  //puts("New symbol: "); puts(symstr); putln
+  puts("New symbol: "); puts(symstr); putln
  return symptr
 end

@@ -269,6 +269,7 @@ def parse_sym(evalptr)#2 // return evalptr, symptr
  var symstr
  symstr = evalptr - 1
  while is_alphasym(^evalptr)
+    ^evalptr = toupper(^evalptr)
    evalptr++
  loop
  ^symstr = evalptr - symstr - 1