Brad,
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.
Ben