[gambit-list] srfi-13/14

ben at fuhok.net ben at fuhok.net
Mon Apr 11 23:51:46 EDT 2005


On Sat, Apr 09, 2005 at 11:23:31PM -0500, Bradley Lucier wrote:
> I've included below the diffs between the implementation I sent before 
> and this one; I hope I caught all the things you pointed out.  

Add this one:

--- srfis.bak/string-lib.scm	2005-04-09 23:01:45.000000000 -0500
+++ srfis/string-lib.scm	2005-04-11 22:29:21.713553376 -0500
@@ -829,7 +829,7 @@
   (macro-check-string-start-end s start end (string-count s criterion start end)
    (##string-count s criterion start end)))
-(define (##string-count criterion s start end)
+(define (##string-count s criterion start end)
   (cond ((char? criterion)
 	 (do ((i start (+ i 1))
 	      (count 0 (if (char=? criterion (string-ref s i))

Right now, string-count is still broken (unless I've got my diffs mixed up).

> Also, 
> I've included a tar file with all the .scm files again.  Put them in a 
> directory srfis at the same level as lib/gsi/gsc in the gambit 
> directory and compile with
> [zakon2-iro-umontreal-ca:~/programs/gambc40b12/srfis] bjlucier% gsc
> Gambit Version 4.0 beta 12
> > (compile-file "srfis" '(check))
> #t
> > (load "srfis")
> "/Users/bjlucier/programs/gambc40b12/srfis/srfis.o6"

That seems to work well.  However, as the srfi collection grows, I
would think that compiling them into separate loadable libraries would
be better, instead of lumping them into one big srfis.o.  Perhaps
srfi-55 could be implemented.

> At any rate, perhaps we can use this strategy:  Assume that we're 
> compiling all SRFIs in a directory srfis in the Gambit directory as I 
> suggested, and work at incrementally improving this code rather than 
> starting with a new one.

Sounds good.  I think we are missing a few functions.  I will likely
send you another patch in a few days to correct that.


More information about the Gambit-list mailing list