Custom Query (1630 matches)

Hi, I noticed that there is a mistake in Makefile.cross-linux-mingw. In the process of creating chicken-config.h, this Makefile declares HAVE_ALLOCA_H when it should declare HAVE_ALLOCA only. Here is a "patch":

diff --git a/Makefile.cross-linux-mingw b/Makefile.cross-linux-mingw
index 929e140..6d6a690 100644
--- a/Makefile.cross-linux-mingw
+++ b/Makefile.cross-linux-mingw
@@ -105,7 +105,7 @@ chicken-config.h: chicken-defaults.h
 	echo "#define HAVE_UNISTD_H 1" >>$@
 	echo "#define HAVE_UNSIGNED_LONG_LONG 1" >>$@
 	echo "#define STDC_HEADERS 1" >>$@
-	echo "#define HAVE_ALLOCA_H 1" >>$@
+	echo "#define HAVE_ALLOCA 1" >>$@
 	echo "#define HAVE_DIRECT_H 1" >>$@
 	echo "#define HAVE_ERRNO_H 1" >>$@
 	echo "#define HAVE_LOADLIBRARY 1" >>$@

I needed to be able to talk to something that speaks netstrings, so I ported the netstring egg to CHICKEN 5. The patch is attached.

(import miscmacros (chicken condition)) (define-syntax-rule

(bound-procedure? name) (handle-exceptions

ex

#f (procedure? name)))

(enable-warnings #f) (define wtf (bound-procedure? if)) (enable-warnings #t) wtf

;; ↑↑ quietly and politely evals to #f

(begin

(enable-warnings #f) (define wtf (bound-procedure? if))

(enable-warnings #t) wtf)

;; ↑↑ expands to a let form (which is fine of course) and complains in ;; the REPL because warnings apply retroactively to the entire form.

I've tried enabling the warnings via (let ((ret ...)) enable ret) dynamic-wind or via force/delay or via just a lambda that gets called, but no matter how I do it, it retroactively wants to print warnings.

I even did

(define (re-enable-warnings val ret)

(enable-warnings val) ret)

(re-enable-warnings #f (bound-procedure? if))

;;; politely evals to #f

(re-enable-warnings #t (bound-procedure? if))

;;; causes a ruckus

The time travelling super powers of call-with-current-continuation that the REPL uses is haunting me…!

This just can't be right!