diff options
| author | Kartik Agaram <vc@akkartik.com> | 2018-11-23 16:21:04 -0800 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2018-11-23 16:21:04 -0800 |
| commit | 9fa3f5dc4ee8f348cfedf7d2a4d15640ff1c61c1 (patch) | |
| tree | 1669ce1816142f92b7fdb4ae1a49a70ec0ecbe3e /subx | |
| parent | e345224833ae2f2251b2c80a11cc6fc4f05d4bc4 (diff) | |
| download | mu-9fa3f5dc4ee8f348cfedf7d2a4d15640ff1c61c1.tar.gz | |
4765
Diffstat (limited to 'subx')
| -rw-r--r-- | subx/apps/crenshaw2-1.subx | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/subx/apps/crenshaw2-1.subx b/subx/apps/crenshaw2-1.subx index 6857c6a4..09f551c3 100644 --- a/subx/apps/crenshaw2-1.subx +++ b/subx/apps/crenshaw2-1.subx @@ -73,7 +73,8 @@ $main:end: # Read a sequence of digits into 'out'. Abort if there are none, or if there # are too many to fit in 'out'. -# 'Look' must be initialized with the current byte. +# Input comes from the global variable 'Look' (first byte) and the argument +# 'in' (rest). get-num: # in : (address buffered-file), out : (address stream), err : fd or (address stream), ed : (address exit-descriptor) -> <void> # pseudocode: # if !is-digit?(Look) expected(ed, err, "integer") |