<wingo>i think i can remove support for ia64 / itanium in guile <wingo>red hat has stopped supporting it entirely i think <wingo>debian still has a port, though it seems a bit tenuous <wingo>hum, there was an ia64 patch last year :P <wingo>maybe i can just remove all the ifdefs and rely on bdw-gc to do things right <chris_>I never thought there was a difference between '(1 2) and (list 1 2)......... the latter creates *mutable* list... argh <chris_>I never thought there was a difference between '(1 2) and (list 1 2)......... the latter creates *mutable* list... argh ***Raimondii is now known as Raimondi
<chris_>1) it seems to work when run, however is not acceptable to REPL <chris_>2) when run, it seems to mishandle (list-set-safe! #f 1 9) --> expected output = (list #f 9), obtained output = #f <janneke>chris_: from the manual: ‘append’ doesn’t modify the given lists, but the return may share <janneke> structure with the final OBJ. ‘append!’ is permitted, but not <janneke> required, to modify the given lists to form its return. <chris_>janneke: thx i found that i needed to (set! l newlist) or something <chris_>so much fun... to me scheme is assembly language, not bound by pointer arithmetic nor malloc troubles <chris_>I guess the (gnc:make-stats-collector) was used to process numbers only once, and interrogate later on for max/min/average... <chris_>Today with modern guile are these accumulators still needed? <chris_>I'll be aiming to eradicate use of similar collectors because they're confusing and add values as required <chris_>(apply + (map split->value splitlist)) so much better than (for-each (lambda (v) (collector 'add (split->value v)) splitlist) ***chris_ is now known as chris-afk
<wingo>chris-afk: that was literally the first scheme code i ever wrote; we should probably assume it doesn't make sense :) <wingo>that said, i think that was just copypasta. if accumulators aren't needed for someother reason then sure, you can take the functional tack <wingo>a real thing that's in libguile: <wingo>SCM_DEFINE (scm_noop, "noop", 0, 0, 1, <wingo>#define FUNC_NAME s_scm_noop <wingo> SCM_VALIDATE_REST_ARGUMENT (args); <wingo> return (SCM_NULL_OR_NIL_P (args) ? SCM_BOOL_F : SCM_CAR (args));