Re: [Chicken-users] (call-with-input-string "1" load) : segfault

[felix winkelmann]

On 11/23/06, $) <address@hidden> wrote:
> Hi!
> I tried a code snippet from the SUBJ line in CSI Version 2, build 41 and it
> segfaults both under Windows and Linux. Manual says that load function
> accepts either a file name or an input port, is it true?

Sorry, sill bug:

--- a/eval.scm  Fri Nov 24 15:20:46 2006 +0100
+++ b/eval.scm  Sat Nov 25 09:30:14 2006 +0100
@@ -1145,8 +1145,9 @@
              (fluid-let ([##sys#read-error-with-line-number #t]
                          [##sys#current-load-file fname]
                          [##sys#current-load-path
-                           (let ((i (has-sep? fname)))
-                             (if i (##sys#substring fname 0 (fx+ i 1)) "") ) ]
+                           (and fname
+                                (let ((i (has-sep? fname)))
+                                  (if i (##sys#substring fname 0 (fx+
i 1)) "") ) ) ]
                          [##sys#abort-load (lambda () (abrt #f))] )
                (let ([in (if fname (open-input-file fname) input)])
                  (##sys#dynamic-wind

(change is also in darcs repo)


cheers,
felix

--
http://galinha.ucpel.tche.br:8081/blog/blog.ssp