conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

renamed: 

src/libtrace.ss => src/ikarus.trace.ss
This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 21:28:22 -04:00
parent f501df0778
commit 9745fedfe1
3 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

11
src/libtrace.ss → src/ikarus.trace.ss
View File

@ -1,7 +1,10 @@
(library (ikarus trace) (library (ikarus trace)
(export) (export make-traced-procedure trace-symbol! untrace-symbol!)
(import (scheme)) (import
(only (scheme) top-level-bound? set-top-level-value!
top-level-value)
(ikarus))
(define k* '()) (define k* '())
@ -96,9 +99,7 @@
[else (cons (car ls) (loop (cdr ls)))]))) [else (cons (car ls) (loop (cdr ls)))])))
(set! traced-symbols (loop traced-symbols)))) (set! traced-symbols (loop traced-symbols))))
(primitive-set! 'make-traced-procedure make-traced-procedure) )
(primitive-set! 'trace-symbol! trace-symbol!)
(primitive-set! 'untrace-symbol! untrace-symbol!))
#!eof #!eof

2
src/makefile.ss
View File

@ -53,9 +53,9 @@
"ikarus.reader.ss" "ikarus.reader.ss"
"ikarus.code-objects.ss" "ikarus.code-objects.ss"
"ikarus.trace.ss"
"ikarus.intel-assembler.ss" "ikarus.intel-assembler.ss"
"ikarus.fasl.ss" "ikarus.fasl.ss"
"libtrace.ss"
"ikarus.compiler.ss" "ikarus.compiler.ss"
"libsyntax.ss" "libsyntax.ss"
"libpp.ss" "libpp.ss"