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

* libtrace librarified

This commit is contained in:
Abdulaziz Ghuloum 2007-04-29 20:55:51 -04:00
parent 0cd876d5a2
commit 338265eab1
3 changed files with 15 additions and 1 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.

5
src/libtrace.ss
View File

@ -1,5 +1,8 @@
(let () (library (ikarus trace)
(export)
(import (scheme))
(define k* '()) (define k* '())
(define display-prefix (define display-prefix

11
src/syntax.ss
View File

@ -542,6 +542,8 @@
[pair? pair?-label (core-prim . pair?)] [pair? pair?-label (core-prim . pair?)]
[car car-label (core-prim . car)] [car car-label (core-prim . car)]
[cdr cdr-label (core-prim . cdr)] [cdr cdr-label (core-prim . cdr)]
[set-car! set-car!-label (core-prim . set-car!)]
[set-cdr! set-cdr!-label (core-prim . set-cdr!)]
[caar caar-label (core-prim . caar)] [caar caar-label (core-prim . caar)]
[cdar cdar-label (core-prim . cdar)] [cdar cdar-label (core-prim . cdar)]
[cadr cadr-label (core-prim . cadr)] [cadr cadr-label (core-prim . cadr)]
@ -553,6 +555,9 @@
[assq assq-label (core-prim . assq)] [assq assq-label (core-prim . assq)]
[assv assv-label (core-prim . assv)] [assv assv-label (core-prim . assv)]
[assoc assoc-label (core-prim . assoc)] [assoc assoc-label (core-prim . assoc)]
[memq memq-label (core-prim . memq)]
[memv memv-label (core-prim . memv)]
[member member-label (core-prim . member)]
;;; chars ;;; chars
[char=? char=?-label (core-prim . char=?)] [char=? char=?-label (core-prim . char=?)]
[integer->char integer->char-label (core-prim . integer->char)] [integer->char integer->char-label (core-prim . integer->char)]
@ -603,6 +608,10 @@
[putprop putprop-label (core-prim . putprop)] [putprop putprop-label (core-prim . putprop)]
[symbol->string symbol->string-label (core-prim . symbol->string)] [symbol->string symbol->string-label (core-prim . symbol->string)]
[$set-symbol-value! $set-symbol-value!-label (core-prim . $set-symbol-value!)] [$set-symbol-value! $set-symbol-value!-label (core-prim . $set-symbol-value!)]
;;; top-level
[top-level-bound? top-level-bound-label (core-prim . top-level-bound?)]
[top-level-value top-level-value-label (core-prim . top-level-value)]
[set-top-level-value! set-top-level-value!-label (core-prim . set-top-level-value!)]
;;; IO/ports ;;; IO/ports
[output-port? output-port?-label (core-prim . output-port?)] [output-port? output-port?-label (core-prim . output-port?)]
[console-input-port console-input-port-label (core-prim . console-input-port)] [console-input-port console-input-port-label (core-prim . console-input-port)]
@ -614,6 +623,7 @@
;;; IO/high-level ;;; IO/high-level
[display display-label (core-prim . display)] [display display-label (core-prim . display)]
[write write-label (core-prim . write)] [write write-label (core-prim . write)]
[write-char write-char-label (core-prim . write-char)]
[read read-label (core-prim . read)] [read read-label (core-prim . read)]
[newline newline-label (core-prim . newline)] [newline newline-label (core-prim . newline)]
[printf printf-label (core-prim . printf)] [printf printf-label (core-prim . printf)]
@ -625,6 +635,7 @@
[call-with-values cwv-label (core-prim . call-with-values)] [call-with-values cwv-label (core-prim . call-with-values)]
[current-eval current-eval-label (core-prim . current-eval)] [current-eval current-eval-label (core-prim . current-eval)]
[call/cc call/cc-label (core-prim . call/cc)] [call/cc call/cc-label (core-prim . call/cc)]
[call/cf call/cf-label (core-prim . call/cf)]
[dynamic-wind dynamic-wind-label (core-prim . dynamic-wind)] [dynamic-wind dynamic-wind-label (core-prim . dynamic-wind)]
[error error-label (core-prim . error)] [error error-label (core-prim . error)]
[print-error print-error-label (core-prim . print-error)] [print-error print-error-label (core-prim . print-error)]