diff options
| author | Ludovic Courtes | 2006-01-15 22:07:23 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2006-01-15 22:07:23 +0000 |
| commit | a427c398fad59341c99a124a6fbd6e0c619ecdb1 (patch) | |
| tree | 60840e49d2fff01db18f70ffbcdf6d8aeff15783 /legacy/bigloo/debug.sch | |
| parent | 929063bfca2404a927bf0bec047db37d490aa8e1 (diff) | |
| parent | a1b1ba4d3edd2a5326dfb82527c4bdcdef29284a (diff) | |
| download | skribilo-a427c398fad59341c99a124a6fbd6e0c619ecdb1.tar.gz skribilo-a427c398fad59341c99a124a6fbd6e0c619ecdb1.tar.lz skribilo-a427c398fad59341c99a124a6fbd6e0c619ecdb1.zip | |
Removed the Bigloo/STkLos in the `legacy' directory.
Removed the `legacy' directory. git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-25
Diffstat (limited to 'legacy/bigloo/debug.sch')
| -rw-r--r-- | legacy/bigloo/debug.sch | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/legacy/bigloo/debug.sch b/legacy/bigloo/debug.sch deleted file mode 100644 index 9b53c84..0000000 --- a/legacy/bigloo/debug.sch +++ /dev/null @@ -1,54 +0,0 @@ -;*=====================================================================*/ -;* serrano/prgm/project/skribe/src/bigloo/debug.sch */ -;* ------------------------------------------------------------- */ -;* Author : Manuel Serrano */ -;* Creation : Thu May 29 06:46:33 2003 */ -;* Last change : Tue Nov 2 14:31:45 2004 (serrano) */ -;* Copyright : 2003-04 Manuel Serrano */ -;* ------------------------------------------------------------- */ -;* Simple debug facilities */ -;*=====================================================================*/ - -;*---------------------------------------------------------------------*/ -;* directives */ -;*---------------------------------------------------------------------*/ -(directives - (import skribe_debug)) - -;*---------------------------------------------------------------------*/ -;* when-debug ... */ -;*---------------------------------------------------------------------*/ -(define-macro (when-debug level . exp) - (if (and (number? *compiler-debug*) (> *compiler-debug* 0)) - `(if (>= *skribe-debug* ,level) (begin ,@exp)) - #unspecified)) - -;*---------------------------------------------------------------------*/ -;* with-debug ... */ -;*---------------------------------------------------------------------*/ -(define-macro (with-debug level lbl . arg*) - (if (and (number? *compiler-debug*) (> *compiler-debug* 0)) - `(%with-debug ,level ,lbl (lambda () (begin ,@arg*))) - `(begin ,@arg*))) - -;*---------------------------------------------------------------------*/ -;* with-push-trace ... */ -;*---------------------------------------------------------------------*/ -(define-macro (with-push-trace lbl . arg*) - (if (and (number? *compiler-debug*) (> *compiler-debug* 0)) - (let ((r (gensym))) - `(let () - (c-push-trace ,lbl) - (let ((,r ,@arg*)) - (c-pop-trace) - ,r))) - `(begin ,@arg*))) - -;*---------------------------------------------------------------------*/ -;* debug-item ... */ -;*---------------------------------------------------------------------*/ -(define-expander debug-item - (lambda (x e) - (if (and (number? *compiler-debug*) (> *compiler-debug* 0)) - `(debug-item ,@(map (lambda (x) (e x e)) (cdr x))) - #unspecified))) |