diff options
Diffstat (limited to 'src/interp/i-util.boot')
| -rw-r--r-- | src/interp/i-util.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/i-util.boot b/src/interp/i-util.boot index e301536d..8c10a164 100644 --- a/src/interp/i-util.boot +++ b/src/interp/i-util.boot @@ -163,7 +163,8 @@ HasSignature(domain,[op,sig]) == -- MEMQ(opOf(catform),'(Object Type)) or --temporary hack -- or/[compareSigEqual(catform,cat,domain0,domain) for cat in catlist] -makeInitialModemapFrame() == COPY $InitialModemapFrame +makeInitialModemapFrame() == + COPY $InitialModemapFrame isCapitalWord x == (y := PNAME x) and and/[UPPER_-CASE_-P y.i for i in 0..MAXINDEX y] |