Execute SNUSP/Tcl: Difference between revisions
Content added Content deleted
m (→Core SNUSP: bugfix) |
m (→Modular SNUSP: bugfix) |
||
| Line 184: | Line 184: | ||
"-" {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] %s]} |
||
"@" {Push} |
"@" {Push} |
||
"#" {Pop} |
"#" {Pop} |
||
| Line 191: | Line 191: | ||
} |
} |
||
if {$last != 10} {puts ""}</lang> |
if {$last != 10} {puts ""}</lang> |
||
==Bloated [[SNUSP]]== |
==Bloated [[SNUSP]]== |
||
<lang tcl>package require Tcl 8.5 |
<lang tcl>package require Tcl 8.5 |
||