Execute SNUSP/Tcl: Difference between revisions
Content added Content deleted
(Added implementation notes) |
m (→Core SNUSP: bugfix) |
||
| Line 85: | Line 85: | ||
"-" {Set [expr [Get]-1]} |
"-" {Set [expr [Get]-1]} |
||
"." {puts -nonewline [format %c [set last [Get]]]} |
"." {puts -nonewline [format %c [set last [Get]]]} |
||
"," {Set [read stdin 1]} |
"," {Set [scan [read stdin 1] %c]} |
||
} |
} |
||
Move |
Move |
||