Gambit-list Octobre 2009

gambit-list@iro.umontreal.ca

32 participants
40 discussions

Scheme in the App Store
by tom＠tmilford.com 23 Oct '09

23 Oct '09

This hit the front page of Hacker News this morning. The article: http://www.ventonegro.org/2009/10/scheme-hits-the-app-store/ Hacker News discussion: http://news.ycombinator.com/item?id=898627 I've been trying to field some of the questions about Gambit, but I'm sure there are more knowledgeable voices here. - Tom

3 2

Re: [gambit-list] Scheme in the App Store
by Arthur Smyles 23 Oct '09

23 Oct '09

Marc, I nominate Alex to be knighted :D If you don't have a sword, I've found that a butter knife works equally well. Arthur >Hallo, >On 10/23/09, tom(a)tmilford.com <tom(a)tmilford.com> wrote: >> >> This hit the front page of Hacker News this morning. >> >> The article: http://www.ventonegro.org/2009/10/scheme-hits-the-app-store/ >> > So I can use the title of "Scheme Hacker" from now on? :) -- -alex

1 0

print parse tree
by Nguyen Thai Ngoc Duy 22 Oct '09

22 Oct '09

Hi, How can I print a parse tree, generated by parse-program from _front.scm? I don't know the underlying structure but REPL prints the result for ever, like printing a circular graph. BTW, igsc.scm is broken because _t-c-2.scm needs targ-obj-subtype-integer from -t-c-3.scm. -- Duy

2 1

Re: [gambit-list] it-is-bug-for-me
by Alex Queiroz 22 Oct '09

22 Oct '09

Hallo, On 10/22/09, DeepFinder <DeepFinder(a)yandex.ru> wrote: > > > No. Procedure (display) correctly display strings writed in russian. But gsi do not display correctly names of procedures written in russian, in gsi error reports. > > Try this: > > (define (квадрат x) (* x y)) > (display "квадрат") ; works fine > (квадрат 5) ; here system emits an error. Name of procedure displayed as number sequence. > > Code page is DOS 866. > You should really be sending these emails to the Gambit-C list as well. To try to answer your question, I don't think Gambit-C supports this character encoding. Cheers, -- -alex http://www.ventonegro.org/

1 0

Re: [gambit-list] it-is-bug-for-me
by Alex Queiroz 22 Oct '09

22 Oct '09

Hallo, Copying to the list... On 10/22/09, DeepFinder <DeepFinder(a)yandex.ru> wrote: > > No. Characters wich I send to terminal via (display "some-string") displayed correctly. But error reports from gsi do not. > -:fXX option change encoding of msg send to terminal by standard (display port item) procedure. I need an ASCII in error reports of scheme system itself. > > Thankee for dirrecting to "The Fine Manual" :) > I cannot understand what you are saying. You need "an ASCII" in error reports, meaning standard ASCII error reports are garbled? -- -alex http://www.ventonegro.org/

2 1

it-is-bug-for-me
by DeepFinder 21 Oct '09

21 Oct '09

Hi! Hey guys!.. I prefer to tell this. It is bug for me. The characters in procedure names dispalyed incorrectly in error reports, when I use russian names for variables. ASCII codes above 128. It is not good. Other implementations handle those names correctly. For example Chicken, SCM. I'll be verry glad if names formed by ASCII>128 will be printed normally, not like something like this: \252\242\244\340\240\342. And what is \340 & \342 ? ASCII table as I know, has only 256 symbols.. $) -- Best regards DeepFinder 2009 A.D.

2 1

Is there any way to use gsc in a Visual Studio 2008 build process?
by Valeriya Pudova 21 Oct '09

21 Oct '09

We've tried using a custom build step (VS reports that the step failed) and running gsc via nmake. In the latter case, nmake reported a return 0x47 from gsc. That's 71 decimal, which the documentation says means: "There was a problem initializing the runtime system, for example insufficient memory to allocate critical tables".

1 0

Poor compilation of do-loops
by Bradley Lucier 18 Oct '09

18 Oct '09

Marc: At the end of this message I suggest a compiler transformation of do-loops that doubles the speed of the sample code. A matrix multiplication benchmark recently was posted to the Chicken list, see the thread beginning here: http://lists.gnu.org/archive/html/chicken-users/2009-10/msg00050.html The Gambit version of the benchmark has no Gambit-specific declarations, uses generic vectors and arithmetic. When I built the Gambit benchmark the way that it was done in that thread and run it on the 100x100 example, I get heine:~/programs/matrix-multiply-benchmarks> ./gamb-bench 10 ------------ (time (set! c (bench-multiply a b times))) 2838 ms real time 2836 ms cpu time (2836 user, 0 system) 326 collections accounting for 382 ms real time (376 user, 0 system) 702278640 bytes allocated 835 minor faults no major faults ------------ When I build it with gsc -exe, I get heine:~/programs/matrix-multiply-benchmarks> ./matrix-bench-gambit 10 ------------ (time (set! c (bench-multiply a b times))) 1429 ms real time 1424 ms cpu time (1420 user, 4 system) 326 collections accounting for 380 ms real time (352 user, 4 system) 702278640 bytes allocated 833 minor faults no major faults ------------ When I use fx and fl operations, uniform f64vectors, and (standard-bindings)(extended-bindings)(block), I get heine:~/programs/matrix-multiply-benchmarks> ./matrix-lucier 10 ------------ (time (set! c (bench-multiply a b times))) 1221 ms real time 1220 ms cpu time (1220 user, 0 system) 1027 collections accounting for 357 ms real time (356 user, 0 system) 1409818032 bytes allocated 226 minor faults no major faults ------------ And if I add (not safe) I get heine:~/programs/matrix-multiply-benchmarks> ./matrix-lucier 10 ------------ (time (set! c (bench-multiply a b times))) 877 ms real time 880 ms cpu time (876 user, 4 system) 772 collections accounting for 268 ms real time (284 user, 0 system) 1057834192 bytes allocated 451 minor faults no major faults ------------ So far, so good. The main loop is (define multiply (lambda (m1 m2) (let* ((nr1 (matrix-rows m1)) (nr2 (matrix-rows m2)) (nc2 (matrix-columns m2)) (r (make-matrix nr1 nc2))) (if (not (fx= (matrix-columns m1) nr2)) (match-error m1 m2)) (do ((i 0 (fx+ i 1))) ((fx= i nr1) r) (do ((j 0 (fx+ j 1))) ((fx= j nc2)) (do ((k 0 (fx+ k 1)) (a 0.0 (fl+ a (fl* (matrix-ref m1 i k) (matrix-ref m2 k j))))) ((fx= k nr2) (matrix-set! r i j a)))))))) If I rewrite this by hand to use named lets, like (define multiply (lambda (m1 m2) (let* ((nr1 (matrix-rows m1)) (nr2 (matrix-rows m2)) (nc2 (matrix-columns m2)) (r (make-matrix nr1 nc2))) (if (not (fx= (matrix-columns m1) nr2)) (match-error m1 m2)) (let i-loop ((i 0)) (if (fx= i nr1) r (let j-loop ((j 0)) (if (fx= j nc2) (i-loop (fx+ i 1)) (let k-loop ((k 0) (a 0.0)) (if (fx= k nr2) (begin (matrix-set! r i j a) (j-loop (fx+ j 1))) (k-loop (fx+ k 1) (fl+ a (fl* (matrix-ref m1 i k) (matrix-ref m2 k j))))))))))))) I get heine:~/programs/matrix-multiply-benchmarks> ./matrix-lucier-named-let 10 ------------ (time (set! c (bench-multiply a b times))) 422 ms real time 416 ms cpu time (412 user, 4 system) 515 collections accounting for 175 ms real time (184 user, 4 system) 705822880 bytes allocated 451 minor faults no major faults ------------ In other words, this mechanical translation of do loops to named lets (following the known continuation when each loop is finished) more than doubles the speed of the routine. I've trained myself to write loops as named lets, but other people have not yet been assimilated to modify how they write code to get around the oddities of Gambit's compiler. Do loops are very popular in numerical code; please add a transformation like this to the compiler. Brad

3 7

Blackhole/Spork and content types
by Jonathan Arkell 17 Oct '09

17 Oct '09

Hi List When using Spork, I am having some issues working with content types. I am trying to do this: (define mono-serv (spork-serve root: "/spork" )) (add-spork mono-serv ("main.css" doctype: "text/css" mime: "text/css" headers: '(("Content-Type" . "text/css") ("foo" . "bar"))) main-css) I always get a content type of "text/html; Charset=UTF-8", and the second foo/bar header isn't shown. I suspect that it is just a syntax issue on my side, but I am not sure what the correct syntax is. Thanks!

2 1

macros, exceptions, line numbers
by lowly coder 15 Oct '09

15 Oct '09

take a look at: cat test.scm; gsi test.scm (define-macro (for var start end . body) `(do ((,var ,start (+ ,var 1))) ((= ,var ,end)) ,@body)) (for i 0 2 (display i) (newline)) (for i 0 2 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing (/ i a) 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing ) 0 1 *** ERROR IN #<procedure #2>, "test.scm"@12.1 -- Unbound variable: a ignore the fact taht ,end is evaluated twice: note that the error is on line "12", which is the (for i 0 2 line ... not the (/ i a) line; i can understand that since the macro expansion happens before the code is run, the entire 'chunk' gets grouped to the line where the macro is expanded at however, is there anyway I can have the "LINE_NUMBER" information passed along with define-macro? thanks!

2 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

Gambit-list Octobre 2009