diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-29 01:43:22 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-29 01:43:22 +0000 |
| commit | 049fc29643eef2e73755317c7ef0d3bd57e40419 (patch) | |
| tree | 7b77736adece47665318ed80ea0f7161c93c5ee4 /src/interp/lisplib.boot | |
| parent | 73af2d0d8b8c4aa1b009dc85f616915fe2cc8eff (diff) | |
| download | open-axiom-049fc29643eef2e73755317c7ef0d3bd57e40419.tar.gz | |
Remove Lispy junks
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index c954e61a..1dd83d18 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -422,7 +422,7 @@ compDefineLisplib(db,df:=["DEF",[op,:.],:.],m,e,fal,fn) == sayMSG ['" finalizing ",$spadLibFT,:bright libName] ok := finalizeLisplib(db,libName) finally - RSHUT dbOutputStream db + RSHUT dbLibstream db if ok then lisplibDoRename(libName) filearg := makeFullFilePath [libName,$spadLibFT,nil] RPACKFILE filearg @@ -447,8 +447,8 @@ compileDocumentation(ctor,libName) == initializeLisplib(db,libName) == removeFile makeFullFilePath [libName,'ERRORLIB,nil] resetErrorCount() - dbOutputStream(db) := writeLib(libName,'ERRORLIB) - addCompilerOption('FILE,dbOutputStream db) + dbLibstream(db) := writeLib(libName,'ERRORLIB) + addCompilerOption('FILE,dbLibstream db) mkCtorDBForm db == ['constructorDB,quote dbConstructor db] @@ -456,14 +456,14 @@ mkCtorDBForm db == writeInfo(db,info,key,prop) == if info ~= nil then insn := ['%store,[prop,mkCtorDBForm db],quote info] - LAM_,FILEACTQ(key,expandToVMForm insn) - lisplibWrite(symbolName key,info,dbOutputStream db) + printBackendDecl(key,expandToVMForm insn) + lisplibWrite(symbolName key,info,dbLibstream db) ++ Like writeInfo, but only write to the load unit. writeLoadInfo(db,info,key,prop) == info = nil => nil insn := ['%store,[prop,mkCtorDBForm db],info] - LAM_,FILEACTQ(key,expandToVMForm insn) + printBackendDecl(key,expandToVMForm insn) writeTemplate db == dbConstructorKind db = 'category => nil @@ -536,8 +536,8 @@ finalizeLisplib(db,libName) == -- to the right-hand sides (the definition) for category constructors if dbConstructorKind db = 'category then writeCategory db - lisplibWrite('"sourceFile",dbSourceFile db,dbOutputStream db) - lisplibWrite('"modemaps",dbModemaps db,dbOutputStream db) + lisplibWrite('"sourceFile",dbSourceFile db,dbLibstream db) + lisplibWrite('"modemaps",dbModemaps db,dbLibstream db) opsAndAtts := dbConstructorKind db = 'category => getCategoryOpsAndAtts db getFunctorOpsAndAtts db @@ -554,7 +554,7 @@ finalizeLisplib(db,libName) == writeAncestors db if not $bootStrapMode then lisplibWrite('"documentation", - finalizeDocumentation dbConstructor db,dbOutputStream db) + finalizeDocumentation dbConstructor db,dbLibstream db) if $profileCompiler then profileWrite db leaveIfErrors(libName,dbConstructorKind db) true |