"The Senator" <[EMAIL PROTECTED]> writes:
>
> So perhaps eval.c will need to include malloc.h,
Yep, thanks, I made that change.
> or is this autoconf's (or even somebody else's) job?
The blob of alloca code that's there is (or should be) the autoconf
manual recommendation.
> ??? This is out of my league, I don't know what to do about this. I'll
> be happy to provide whatever information is required though.
Oh, I just meant that char-waiting code can probably do better that
what it currently can. I don't want to actually work on it, not for
DOS, but if anyone can say how it should be done then we can add some
code.
>> (module-use! guile-user-module (resolve-interface '(ice-9 session)))
I made the change below to documentation.scm which looks like it fixes
the problem for me in a --disable-regex build. Obviously the affected
functions won't run, but at least it should get to the repl.
--- documentation.scm.~1.10.2.1.~ 2006-02-14 08:58:55.000000000 +1100
+++ documentation.scm 2006-05-28 08:34:41.000000000 +1000
@@ -90,14 +90,21 @@
;;
;; commentary extraction
;;
-(define default-in-line-re (make-regexp "^;;; Commentary:"))
-(define default-after-line-re (make-regexp "^;;; Code:"))
-(define default-scrub (let ((dirt (make-regexp "^;+")))
- (lambda (line)
- (let ((m (regexp-exec dirt line)))
- (if m (match:suffix m) line)))))
(define (file-commentary filename . cust) ; (IN-LINE-RE AFTER-LINE-RE SCRUB)
+
+ ;; These are constants but are not at the top level because the repl in
+ ;; boot-9.scm loads session.scm which in turn loads this file, and we want
+ ;; that to work even even when regexps are not available (ie. make-regexp
+ ;; doesn't exist), as for instance is the case on mingw.
+ ;;
+ (define default-in-line-re (make-regexp "^;;; Commentary:"))
+ (define default-after-line-re (make-regexp "^;;; Code:"))
+ (define default-scrub (let ((dirt (make-regexp "^;+")))
+ (lambda (line)
+ (let ((m (regexp-exec dirt line)))
+ (if m (match:suffix m) line)))))
+
;; fixme: might be cleaner to use optargs here...
(let ((in-line-re (if (> 1 (length cust))
default-in-line-re
_______________________________________________
Bug-guile mailing list
Bug-guile@gnu.org
http://lists.gnu.org/mailman/listinfo/bug-guile
