~ chicken-core (chicken-5) 54adaee1d6bba6cb123e916aace05ef5ef086c3a
commit 54adaee1d6bba6cb123e916aace05ef5ef086c3a
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Jun 20 15:38:21 2011 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Mon Jun 20 15:38:21 2011 +0200
trivial changes
diff --git a/batch-driver.scm b/batch-driver.scm
index 6b159bee..3a6d5627 100644
--- a/batch-driver.scm
+++ b/batch-driver.scm
@@ -362,7 +362,7 @@
'() ) ) )
(dribble "generating ~aprofiled code" (if acc "accumulative " "")) ))
- ;;*** hardcoded "modules.db" is bad (also used in chicken-install.scm)
+ ;;XXX hardcoded "modules.db" is bad (also used in chicken-install.scm)
(load-identifier-database "modules.db")
(cond ((memq 'version options)
@@ -525,7 +525,7 @@
(load-inline-file ilf) )
ifs)))
(when do-scrutinize
- ;;*** hardcoded database file name
+ ;;XXX hardcoded database file name
(unless (memq 'ignore-repository options)
(load-type-database "types.db"))
(for-each (cut load-type-database <> #f) (collect-options 'types))
diff --git a/c-backend.scm b/c-backend.scm
index 1d04f011..1571edb6 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -1322,7 +1322,7 @@
((unsigned-short) "C_fix(0xffff&(C_word)")
((byte) "C_fix((char)")
((unsigned-byte) "C_fix(0xff&(C_word)")
- ((float double) (sprintf "C_flonum(&~a," dest)) ;*** suboptimal for int64
+ ((float double) (sprintf "C_flonum(&~a," dest)) ;XXX suboptimal for int64
((number) (sprintf "C_number(&~a," dest))
((nonnull-c-string c-string nonnull-c-pointer c-string* nonnull-c-string*
unsigned-c-string unsigned-c-string* nonnull-unsigned-c-string
diff --git a/c-platform.scm b/c-platform.scm
index 79a29353..bd6f4605 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -632,7 +632,7 @@
(rewrite 'char>=? 2 2 "C_i_char_greater_or_equal_p" #t)
(rewrite 'char<=? 2 2 "C_i_char_less_or_equal_p" #t)
(rewrite '##sys#slot 2 2 "C_slot" #t) ; consider as safe, the primitive is unsafe anyway.
-(rewrite '##sys#block-ref 2 2 "C_i_block_ref" #t) ;*** must be safe for pattern matcher (anymore?)
+(rewrite '##sys#block-ref 2 2 "C_i_block_ref" #t) ;XXX must be safe for pattern matcher (anymore?)
(rewrite '##sys#size 2 1 "C_block_size" #t)
(rewrite 'fxnot 2 1 "C_fixnum_not" #t)
(rewrite 'fx* 2 2 "C_fixnum_times" #t)
diff --git a/chicken.import.scm b/chicken.import.scm
index 9811d8f5..2a294282 100644
--- a/chicken.import.scm
+++ b/chicken.import.scm
@@ -231,4 +231,4 @@
ir-macro-transformer
dynamic-load-libraries
with-exception-handler)
- ##sys#chicken-macro-environment) ;*** incorrect - won't work in compiled executable that does expansion
+ ##sys#chicken-macro-environment) ;XXX incorrect - won't work in compiled executable that does expansion
diff --git a/compiler.scm b/compiler.scm
index 80c426c1..1779d6f4 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -714,7 +714,7 @@
`(##sys#extend-macro-environment
',var
(##sys#current-environment)
- (##sys#er-transformer ,body)) ;*** possibly wrong se?
+ (##sys#er-transformer ,body)) ;XXX possibly wrong se?
'(##core#undefined) )
e se dest ldest h)) )
@@ -2646,14 +2646,14 @@
((##core#inline "C_lambdainfop" x)
(let ((i (length lambda-info-literals)))
(set! lambda-info-literals
- (append lambda-info-literals (list x))) ;*** see below
+ (append lambda-info-literals (list x))) ;XXX see below
(vector i) ) )
[(posq x literals) => identity]
[else (new-literal x)] ) )
(define (new-literal x)
(let ([i (length literals)])
- (set! literals (append literals (list x))) ;*** could (should) be optimized
+ (set! literals (append literals (list x))) ;XXX could (should) be optimized
i) )
(define (blockvar-literal var)
diff --git a/eval.scm b/eval.scm
index 864c209c..0d55ca8b 100644
--- a/eval.scm
+++ b/eval.scm
@@ -584,7 +584,7 @@
(name (rename var se)))
(##sys#register-syntax-export
name (##sys#current-module)
- body) ;*** not really necessary, it only shouldn't be #f
+ body) ; not really necessary, it only shouldn't be #f
(##sys#extend-macro-environment
name
(##sys#current-environment)
diff --git a/library.scm b/library.scm
index 07df1eca..4e8a538f 100644
--- a/library.scm
+++ b/library.scm
@@ -4073,7 +4073,7 @@ EOF
ptr) )
(define (##sys#pointer->address ptr)
- ;; *** '4' is platform dependent!
+ ;;XXX '4' is platform dependent!
(##core#inline_allocate ("C_a_unsigned_int_to_num" 4) (##sys#slot ptr 0)) )
(define (##sys#make-c-string str #!optional (loc '##sys#make-c-string))
diff --git a/modules.scm b/modules.scm
index 76532166..9bdd7dbc 100644
--- a/modules.scm
+++ b/modules.scm
@@ -532,7 +532,7 @@
(%prefix (r 'prefix))
(%srfi (r 'srfi)))
(define (resolve sym)
- (or (lookup sym '()) sym)) ;*** empty se?
+ (or (lookup sym '()) sym)) ;XXX really empty se?
(define (tostr x)
(cond ((string? x) x)
((keyword? x) (##sys#string-append (##sys#symbol->string x) ":")) ; hack
@@ -722,7 +722,7 @@
(lambda (a)
(let ((sym2 (cdr a)))
(dm "(ALIAS) in current environment " sym " -> " sym2)
- (if (pair? sym2) ; macro (*** can this be?)
+ (if (pair? sym2) ; macro (XXX can this be?)
(mrename sym)
(or (getp sym2 '##core#primitive) sym2)))))
(else (mrename sym))))
diff --git a/setup-download.scm b/setup-download.scm
index 57264c03..8d1c5b9a 100644
--- a/setup-download.scm
+++ b/setup-download.scm
@@ -302,7 +302,7 @@
(let* ([h1 (read-line in)]
[response-match (match-http-response h1)])
(d "~a~%" h1)
- ;;*** handle redirects here
+ ;;XXX handle redirects here
(if (response-match-code? response-match 407)
(let-values (((inpx outpx) (tcp-connect proxy-host proxy-port)))
(set! in inpx) (set! out outpx)
Trap