From b2349ca9dfd2736d612194a4859a5a61c3c86066 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 28 Nov 2007 11:48:03 +0100 Subject: Remove `define-skribe-module' macro. * src/guile/skribilo/module.scm (define-skribe-module): Remove. --- src/guile/skribilo/module.scm | 35 +---------------------------------- 1 file changed, 1 insertion(+), 34 deletions(-) (limited to 'src') 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 +;;; Copyright 2005, 2006, 2007 Ludovic Courtès ;;; ;;; ;;; 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 -- cgit v1.2.3