Commit b769dbb4 authored by Erick Gallesio's avatar Erick Gallesio

NOP

parent 4579edad
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@essi.fr]
;;;; Creation date: 11-Dec-2006 14:39 (eg)
;;;; Last file update: 21-Mar-2007 15:07 (eg)
;;;; Last file update: 9-Apr-2007 19:30 (eg)
;;;;
......@@ -71,10 +71,13 @@
(define-macro (interface name . body)
(define (find-imports lang imp)
(if (member lang '(r5rs stklos))
imp
(cons (string->symbol (format "@~a" lang)) imp)))
(let ((main (car lang)))
(if (member main '(r5rs stklos))
imp
(append! (cons (string->symbol (format "@~a" main))
(map (lambda (x) (string->symbol (format "@~a-~a" main x)))
(cdr lang)))
imp))))
(let* ((pi (in-module |ScmPkg| parse-interface))
(pkg (pi name body))
......@@ -124,10 +127,10 @@
(define (parse-interface name body)
(define (choose-language pkg lang)
(let* ((lang (if (pair? lang) (car lang) lang))
(info (assoc lang *scmpkg-languages*)))
(let* ((lg (if (pair? lang) (car lang) lang))
(info (assoc lg *scmpkg-languages*)))
(unless info
(error 'interface "Language ~S is not managed" lang))
(error 'interface "Language '~S' is not managed" lg))
;; Set the language
(set! (scmpkg-package-language pkg) lang)
;; Set the default suffix
......
......@@ -21,19 +21,23 @@
;;;;
;;;; Author: Erick Gallesio [eg@essi.fr]
;;;; Creation date: 7-Feb-2007 13:39 (eg)
;;;; Last file update: 23-Mar-2007 08:43 (eg)
;;;; Last file update: 6-Apr-2007 16:41 (eg)
;;;;
(define *scmpkg-languages*
'(
;; Bigloo
(bigloo :suffix "scm")
;; Chicken
(chicken :suffix "scm")
;; Gambit
(gambit :suffix "scm")
;; ScmPkg
(scmpkg :suffix "scm")
;; R5RS (the default)
(r5rs :suffix "scm")
;; R6RS
(r6rs :suffix "scm")
;; Snow
(snow :suffix "scm")
;; STklos
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 14-Jun-2000 17:24 (eg)
;;;; Last file update: 15-Mar-2007 16:07 (eg)
;;;; Last file update: 4-Apr-2007 15:22 (eg)
;;;;
;;
......@@ -1433,7 +1433,8 @@ doc>
|#
(define-macro (case-lambda . clauses)
(let ((len (gensym))
(args (gensym)))
(args (gensym))
(compute-arity (in-module STKLOS-COMPILER compute-arity)))
`(lambda ,args
(let ((,len (length ,args)))
(cond
......
......@@ -21,7 +21,23 @@
;;;;
;;;; Author: Erick Gallesio [eg@essi.fr]
;;;; Creation date: 21-Mar-2007 14:31 (eg)
;;;; Last file update: 21-Mar-2007 14:31 (eg)
;;;; Last file update: 6-Apr-2007 16:40 (eg)
;;;;
;;;
;;; Bigloo
;;;
(include "lang-bigloo.stk")
;;;
;;; Chicken
;;;
(add-rewriter! 'chicken void)
;;;
;;; R6RS
;;;
(add-rewriter! 'r6rs void)
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@essi.fr]
;;;; Creation date: 22-Dec-2006 11:32 (eg)
;;;; Last file update: 24-Mar-2007 16:14 (eg)
;;;; Last file update: 8-Apr-2007 12:22 (eg)
;;;;
(require "getopt")
......@@ -101,7 +101,7 @@
(if (and (condition? c) (condition-has-type? c &error-message))
(let ((who (condition-ref c 'location))
(msg (condition-ref c 'message)))
(describe c)
(format (current-error-port)
"**** ERROR: ~a~a\n"
msg
......
This source diff could not be displayed because it is too large. You can view the blob instead.
This source diff could not be displayed because it is too large. You can view the blob instead.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment