From 97672104acdafd84c791fb00651b264e8c1345f7 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 22 May 2013 18:17:21 +0000
Subject: Replace Lisp-level structure with Boot datatype

---
 src/interp/profile.boot | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/interp/profile.boot')

diff --git a/src/interp/profile.boot b/src/interp/profile.boot
index 75f2e5ab..7714c190 100644
--- a/src/interp/profile.boot
+++ b/src/interp/profile.boot
@@ -1,6 +1,6 @@
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
--- Copyright (C) 2007-2012, Gabriel Dos Reis.
+-- Copyright (C) 2007-2013, Gabriel Dos Reis.
 -- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
@@ -33,13 +33,14 @@
 
 
 import sys_-macros
+import sys_-utility
 namespace BOOT
 
 --$profileCompiler := true
 $profileAlist := nil
 
 profileWrite() ==  --called from finalizeLisplib
-  outStream := MAKE_-OUTSTREAM strconc(LIBSTREAM_-DIRNAME $libFile,'"/info")
+  outStream := MAKE_-OUTSTREAM strconc(libDirname $libFile,'"/info")
   SETQ(_*PRINT_-PRETTY_*, true)
   PRINT_-FULL(profileTran $profileAlist,outStream)
   SHUT outStream
-- 
cgit v1.2.3