summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/module.scm35
1 files changed, 1 insertions, 34 deletions
diff --git a/src/guile/skribilo/module.scm b/src/guile/skribilo/module.scm
index 4e47192..6511bb9 100644
--- a/src/guile/skribilo/module.scm
+++ b/src/guile/skribilo/module.scm
@@ -1,6 +1,6 @@
;;; module.scm -- Integration of Skribe code as Guile modules.
;;;
-;;; Copyright 2005, 2006, 2007 Ludovic Courtès <ludovic.courtes@laas.fr>
+;;; Copyright 2005, 2006, 2007 Ludovic Courtès <ludo@gnu.org>
;;;
;;;
;;; This program is free software; you can redistribute it and/or modify
@@ -86,39 +86,6 @@
((ice-9 and-let-star) . (and-let*))
((ice-9 receive) . (receive))))
-
-
-;; The very macro to turn a legacy Skribe file (which uses Skribe's syntax)
-;; into a Guile module.
-
-(define-macro (define-skribe-module name . options)
- `(begin
- (define-module ,name
- :use-module ((skribilo reader) :select (%default-reader))
- :use-module (srfi srfi-1)
- ,@(append-map (lambda (mod)
- (list :autoload (car mod) (cdr mod)))
- %skribilo-user-autoloads)
- ,@options)
-
- ;; Pull all the bindings that Skribe code may expect, plus those needed
- ;; to actually create and read the module.
- ;; TODO: These should be auto-loaded.
- ,(cons 'use-modules %skribilo-user-imports)
-
- ;; Change the current reader to a Skribe-compatible reader. If this
- ;; primitive is not provided by Guile (i.e., version <= 1.7.2), then it
- ;; should be provided by `guile-reader' (version >= 0.3) as a core
- ;; binding and installed by `(skribilo utils syntax)'.
- (fluid-set! current-reader %default-reader)))
-
-
-;; Make it available to the top-level module.
-(module-define! the-root-module
- 'define-skribe-module define-skribe-module)
-
-
-
;;;
;;; MAKE-RUN-TIME-MODULE