diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 6256c305..7ecab9d4 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1766,8 +1766,8 @@ lookupDefiningFunction(op,sig,dc) == -- 6. We have a location to a function descriptor. fun := domainRef(shell,loc) - -- 6.1. A constant producing functions? - fun is [.,'%constant,[.,['%function,fun'],.]] => fun' + -- 6.1. A constant producing function? + fun is ['%constant,[fun',.]] => fun' -- 6.2. An inherited function? fun is [idx,:.] => not integer? idx => nil -- a UFO? |