diff options
Diffstat (limited to 'src/interp/profile.boot')
| -rw-r--r-- | src/interp/profile.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/profile.boot b/src/interp/profile.boot index 7714c190..74aeb9f1 100644 --- a/src/interp/profile.boot +++ b/src/interp/profile.boot @@ -34,13 +34,14 @@ import sys_-macros import sys_-utility +import c_-util namespace BOOT --$profileCompiler := true $profileAlist := nil -profileWrite() == --called from finalizeLisplib - outStream := MAKE_-OUTSTREAM strconc(libDirname $libFile,'"/info") +profileWrite db == --called from finalizeLisplib + outStream := MAKE_-OUTSTREAM strconc(libDirname dbOutputStream db,'"/info") SETQ(_*PRINT_-PRETTY_*, true) PRINT_-FULL(profileTran $profileAlist,outStream) SHUT outStream |