diff options
| -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") |