From e9509518623d016880392237a298d4561a3b6a0b Mon Sep 17 00:00:00 2001
From: Ludovic Courtes
Date: Mon, 31 Oct 2005 16:03:18 +0000
Subject: Removed useless files, integrated packages.

* src/guile/skribilo/packages: New directory and files.

* bin: Removed.

* skr: Removed (files moved to `src/guile/skribilo/packages').

* skribe: Removed.

* doc/skr/env.skr (*courtes-mail*): New.

* doc/user/user.skb: Removed postal addresses, added my name.

* src/guile/skribilo/engine/lout.scm: Uncommented the slide-related
  markup writers.

* src/guile/skribilo/evaluator.scm (%evaluate): Try weird things with
  source properties.

* src/guile/skribilo/reader/skribe.scm: Comply with the new guile-reader
  API.

* src/guile/skribilo/types.scm: Removed the special `initialize' method
  for ASTs which was supposed to set their location.

git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-7
---
 skribe/src/bigloo/debug.sch | 54 ---------------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 skribe/src/bigloo/debug.sch

(limited to 'skribe/src/bigloo/debug.sch')

diff --git a/skribe/src/bigloo/debug.sch b/skribe/src/bigloo/debug.sch
deleted file mode 100644
index 9b53c84..0000000
--- a/skribe/src/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)))
-- 
cgit v1.2.3