From db9c4c7cd0c08a8b35a7d56d0279139021d8b945 Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Wed, 23 Dec 2015 22:38:12 -0800
Subject: Retain Lisp code generated from algebra if asked.

---
 src/interp/lisplib.boot | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot
index 6ab93035..d708eb3f 100644
--- a/src/interp/lisplib.boot
+++ b/src/interp/lisplib.boot
@@ -1,6 +1,6 @@
 -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
 -- All rights reserved.
--- Copyright (C) 2007-2013, Gabriel Dos Reis.
+-- Copyright (C) 2007-2015, Gabriel Dos Reis.
 -- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
@@ -584,10 +584,17 @@ finalizeLisplib(db,libName) ==
 lisplibDoRename db ==
   lib := dbLibstream db
   output := dbOutputPath db =>
+    codepath := filePath libCodeStream lib
     modpath := filePathString
-      makeFilePath(type <- $faslType,defaults <- filePath libCodeStream lib)
+      makeFilePath(type <- $faslType,defaults <- codepath)
     do
       renameFile(modpath,output) = 0 or copyFile(modpath,output)
+      -- Retain genetared Lisp code for inspection, if possible.
+      if retainFile? 'lisp then
+         lsp := filePathString codepath
+         dst := filePathString
+           makeFilePath(type <- $LispFileType,defaults <- output)
+         renameFile(lsp,dst) = 0 or copyFile(lsp,dst)
       removeFile libStationaryDirname lib
     output
   removeFile libDirname lib
-- 
cgit v1.2.3