about summary refs log tree commit diff stats
path: root/subx
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2018-11-23 16:21:04 -0800
committerKartik Agaram <vc@akkartik.com>2018-11-23 16:21:04 -0800
commit9fa3f5dc4ee8f348cfedf7d2a4d15640ff1c61c1 (patch)
tree1669ce1816142f92b7fdb4ae1a49a70ec0ecbe3e /subx
parente345224833ae2f2251b2c80a11cc6fc4f05d4bc4 (diff)
downloadmu-9fa3f5dc4ee8f348cfedf7d2a4d15640ff1c61c1.tar.gz
4765
Diffstat (limited to 'subx')
-rw-r--r--subx/apps/crenshaw2-1.subx3
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")