Commit 12a7361e authored by Erick Gallesio's avatar Erick Gallesio

NOP

parent cbf9f2c7
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@essi.fr]
;;;; Creation date: 11-Dec-2006 14:39 (eg)
;;;; Last file update: 26-Apr-2007 10:59 (eg)
;;;; Last file update: 1-Jun-2007 14:12 (eg)
;;;;
......@@ -69,8 +69,8 @@
(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)))
(append! (cons (string->symbol (format "_~a" main))
(map (lambda (x) (string->symbol (format "_~a-~a" main x)))
(cdr lang)))
imp))))
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@essi.fr]
;;;; Creation date: 15-Jan-2007 12:10 (eg)
;;;; Last file update: 30-May-2007 19:58 (eg)
;;;; Last file update: 1-Jun-2007 11:15 (eg)
;;;;
;; ----------------------------------------------------------------------
......@@ -54,7 +54,7 @@
(define (build-test-target)
(let ((spi (format "~a-test.spi" package)))
(printf "test: $(OBJS)\n")
(if (file-exists? (make-path package "test" spi))
(if (file-exists? (make-path dir package "test" spi))
(begin
(printf "\t(cd ~a; $(SCC) $(SFLAGS) -L ../.. -o ../../~a.ostk ~a)\n"
(make-path package "test")
......@@ -78,7 +78,9 @@
(if (file-exists? tuneconf)
"$(SO)"
"ostk")))
(docs (cddr (directory-files docdir))))
(docs (if (file-is-directory? docdir)
(cddr (directory-files docdir))
'())))
;; installing the object file
(printf "\tstklos-pkg ~a --cp ~a ~a lib 0755 && \\\n"
option x obj)
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@essi.fr]
;;;; Creation date: 14-Jan-2007 13:37 (eg)
;;;; Last file update: 30-May-2007 19:58 (eg)
;;;; Last file update: 1-Jun-2007 10:37 (eg)
;;;;
;; ----------------------------------------------------------------------
......@@ -101,10 +101,10 @@
(else (list->set (cdr lst) (cons (car lst) res)))))
(define (build-lang-deps lang)
;; convert (foo level2) in (@foo @foo-level2)
;; convert (foo level2) in (_foo _foo-level2)
(let ((main (car lang)))
(cons (format "@~a" main)
(map (lambda (x) (format "@~a-~a" main x)) (cdr lang)))))
(cons (format "_~a" main)
(map (lambda (x) (format "_~a-~a" main x)) (cdr lang)))))
(define (deps* package)
(let* ((pkg (find-package package))
......
/*
This file was automatically generated by make-C-boot
This is a dump of the image in file /mnt/users/eg/Projects/STklos/lib/boot.img3
This is a dump of the image in file /misc/home/eg/Projects/STklos/lib/boot.img3
***DO NOT EDIT BY HAND***
*/
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@essi.fr]
;;;; Creation date: 3-May-2005 12:28 (eg)
;;;; Last file update: 13-May-2007 23:41 (eg)
;;;; Last file update: 1-Jun-2007 16:08 (eg)
;;;;
(load "./test.stk")
......@@ -36,7 +36,8 @@
(load "test-threads.stk")
(load "test-srfi.stk")
(load "test-md5.stk")
(load "test-base64.stk"))
(load "test-base64.stk")
(load "test-r5rs-pitfall.stk"))
(define (main _)
......
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