diff options
Diffstat (limited to 'src/interp/pathname.boot')
| -rw-r--r-- | src/interp/pathname.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/pathname.boot b/src/interp/pathname.boot index 97cab246..3dece48d 100644 --- a/src/interp/pathname.boot +++ b/src/interp/pathname.boot @@ -138,7 +138,7 @@ getFunctionSourceFile1 fun == (file := KDR GETL(fun,'DEFLOC)) => pathname file null ((fileinfo := FUNLOC fun) or (fileinfo := FUNLOC unabbrev fun)) => - u := bootFind fun => getFunctionSourceFile1 SETQ($FUNCTION,INTERN u) + u := bootFind fun => getFunctionSourceFile1 SETQ($FUNCTION,makeSymbol u) nil 3 = #fileinfo => [fn,ft,$FUNCTION] := fileinfo |