diff options
Diffstat (limited to 'src/interp/scan.boot')
-rw-r--r-- | src/interp/scan.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/scan.boot b/src/interp/scan.boot index 184e8b40..e6beeb2a 100644 --- a/src/interp/scan.boot +++ b/src/interp/scan.boot @@ -512,7 +512,7 @@ scanS()== CONCAT(str,b) scanTransform x==x ---idChar? x== scanLetter x or DIGITP x or MEMQ(x,'(_? _%)) +--idChar? x== scanLetter x or DIGITP x or x in '(_? _%) --scanLetter x== -- if not CHARP x @@ -527,7 +527,7 @@ posend(line,n)== -- while n<#line and digit? line.n repeat n:=n+1 -- n ---startsId? x== scanLetter x or MEMQ(x,'(_? _%)) +--startsId? x== scanLetter x or x in '(_? _%) digit? x== DIGITP x scanW(b)== -- starts pointing to first char |