selectively disable lambda lifting?

is there a way to selectively disable lambda lifting?
only found -fno-lambda-lifting-pass to disable it globally

------------------------------------------------------------------------------
Introducing AppDynamics Lite, a free troubleshooting tool for Java/.NET
Get 100% visibility into your production application - at no cost.
Code-level diagnostics for performance bottlenecks with <2% overhead
Download for free and get started troubleshooting in minutes.
http://p.sf.net/sfu/appdyn_d2d_ap1

gauche-gl simple viewer single threaded exit

i am not sure about this one / did only have a quick look

the quit-loop using (thread-terminate! (current-thread)) is not
good (at least in the single threaded case on debian/wheezy on X, the
window stays open and must be xkilled)
maybe something like below would help?
greetings
jens

diff --git a/lib/gl/simple/viewer.scm b/lib/gl/simple/viewer.scm
index fee729c..0afd80e 100644
--- a/lib/gl/simple/viewer.scm
+++ b/lib/gl/simple/viewer.scm
 <at>  <at>  -298,7 +298,9  <at>  <at> 

 (define (quit-loop)
   (cond-expand
-   [gauche.sys.pthreads (thread-terminate! (current-thread))]
+   [gauche.sys.pthreads (if (string=? (ref (current-thread) 'name) "root")
+                          (exit)
+                          (thread-terminate! (current-thread)))]
    [else (exit)]))

 ;; common key handler

------------------------------------------------------------------------------
Try New Relic Now & We'll Send You this Cool Shirt
New Relic is the only SaaS-based application performance monitoring service 
that delivers powerful full stack analytics. Optimize and monitor your
browser, app, & servers with just a few lines of code. Try New Relic

[Planet Debian] David Bremner: Exporting Debian packaging patches from git, (redux)*

hmm
there really isn't a nice and simple packaging workflow using git?

generize -> , ->>

Hi all.
I wrote macro generized ->,->> of clojure.

(define-macro (-*> x form . more)
(if (pair? more)
`(-*> (-*> ,x ,form) , <at> more)
(if (pair? form)
(receive (head tail) (break (cut eq? '<*> <>) form)
(if (null? tail)
`(, <at> head ,x)
`(, <at> head ,x , <at> (cdr tail) ) ) )
`(,form ,x) ) ) )

#|
gosh> (-*> 1 (+ 12 <*>))
13
gosh> (-*> 1 (cut + 12 <*>))
#<closure #f>
gosh> (-*> 1 (cut + 12 <*>) (<*>) )
13
gosh> (-*> 1 (cut list 12 <*>) (<*>) )
(12 1)
gosh> (-*> 1 (cut list 12 <*> 67 ) (<*>) )
(12 1 67)
gosh> (-*> (quotient&remainder 13 5) (receive (x y) <*> (print x y)))
23
#<undef>
gosh> (-*> (quotient&remainder 13 5) (receive (x y) <*> (list x y)))
(2 3)

Repository URL changed

Recently Sourceforge.net rolled out a new infrastructure
and is asking projects to upgrade, which requires repo URL
to be changed.  I fetch this opportunity to migrate Gauche
and Gauche-gl repo to github.

  Gauche:    https://github.com/shirok/Gauche
  Gauche-gl: https://github.com/shirok/Gauche-gl

These are now 'official' repositories; the ones on sf.net
won't be updated and will eventually be deleted.  Note that
I still use sf.net for release file distribution and mailing
lists.

If you've been tracking Gauche HEAD, the easiest way is to
clone from the new repo.   Alternatively, if you have your
local stuff in your repo to carry over, a quick hack is to
edit '[remote "origin"]' section of .git/config like this:

[remote "origin"]
	fetch = +refs/heads/*:refs/remotes/origin/*
	url = git://github.com/shirok/Gauche.git

Then you should be able to do 'git pull' to get changes
from the new repo.

--shiro

------------------------------------------------------------------------------
Precog is a next-generation analytics platform capable of advanced
analytics on semi-structured data. The platform includes APIs for building

(expt 2 1000000000000)

gosh> (expt 2 1000000000000)
0

------------------------------------------------------------------------------
Precog is a next-generation analytics platform capable of advanced
analytics on semi-structured data. The platform includes APIs for building
apps and a phenomenal toolset for data science. Developers can use
our toolset for easy data analysis & visualization. Get a free account!
http://www2.precog.com/precogplatform/slashdotnewsletter

write-ber-integer ignores given port

Hello,

Though I gave a file port to write-ber-integer, it wrote to the stdout.
Probably it is a bug.

Here is the patch to fix it.

diff --git ext/binary/io.scm ext/binary/io.scm
index bd825af..54ae77b 100644
--- ext/binary/io.scm
+++ ext/binary/io.scm
 <at>  <at>  -219,8 +219,8  <at>  <at> 
         [start (ash number -7)])
     (unless (zero? start)
       (let loop ([n start])
-        (cond [(< n 128) (write-u8 (logior n #b10000000))]
+        (cond [(< n 128) (write-u8 (logior n #b10000000) port)]
               [else (loop (ash n -7)) ;; write high bytes first
-                    (write-u8 (logior (logand n #b01111111) #
b10000000))])))
-    (write-u8 final)))
+                    (write-u8 (logior (logand n #b01111111) #
b10000000) port)])))
+    (write-u8 final port)))

This is the first time for me to send a patch. I'd be glad if you 
indicate some mistakes
on this e-mail (if there is).

Regards

macro question

Shiro,

I am still learning Scheme macros so I may be misunderstanding something,
but when I tried the following:

(define-syntax sl-macro
  (syntax-rules ()
                ((sl-macro _expr)
                 (let-syntax
                   ((sl-rule-1
                      (syntax-rules ()
                                    ((_ expr)
                                     (sl-rule-2 expr))
                                    ))
                    (sl-rule-2
                      (syntax-rules ()
                                    ((_ expr) (print expr)))))
                   (sl-rule-1 _expr)))))

(sl-macro (+ 1 2 3))

I get the error:
gosh> (sl-macro (+ 1 2 3))
*** ERROR: unbound variable: sl-rule-2

Which is understandable because 'sl-rule-2' is not in scope in sl-rule-1.
However when I replace the 'let-syntax' with 'letrec-syntax' the problem
is still there,

(define-syntax sl-macro

(make-u8vector (ash 1 32))

gosh> (make-u8vector (ash 1 32))
#u8()
gosh> (make-u8vector (ash 1 60))
#u8()



looking at the uvector functions size is an int (32bit on amd64/x86_64)
internally size is stored as ScmWord => intptr_t which is 64bit on amd64/x86_64
shouldn't the uvector functions use something like size_t then?

greetings
karme

------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://p.sf.net/sfu/appdyn_d2d_feb

gosh crashes with big arg values in SICP expmod function

------------------------------------------------------------------------------
Master HTML5, CSS3, ASP.NET, MVC, AJAX, Knockout.js, Web API and
much more. Get web development skills now with LearnDevNow -
350+ hours of step-by-step video tutorials by Microsoft MVPs and experts.
SALE $99.99 this month only -- learn more at:
http://p.sf.net/sfu/learnmore_122812

_______________________________________________
Gauche-devel mailing list
Gauche-devel <at> lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gauche-devel

Makiki and $

Hi,

I am trying out the Makiki server but encounter the following problems:

~/test/Gauche-makiki-master$ ./sample-server
2012-12-18T10:16:58-0500: started on ([::]:8012)
2012-12-18T10:17:08-0500: handle-client error "unbound variable: $"
2012-12-18T10:17:08-0500: ::ffff:127.0.0.1 "[E] unbound variable: $"
500 21 "-" 92.091ms
2012-12-18T10:17:09-0500: handle-client error "unbound variable: $"
2012-12-18T10:17:08-0500: ::ffff:127.0.0.1 "[E] unbound variable: $"
500 21 "-" 692.832ms

~/test/Gauche-makiki-master$ gosh
gosh> $
*** ERROR: unbound variable: $
Stack Trace:
_______________________________________
gosh> (gauche-version)
"0.9.1"
gosh>

Any Ideas why the $ macro is missing?

Thanks.

--JP

------------------------------------------------------------------------------
LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial
Remotely access PCs and mobile devices and provide instant support
Improve your efficiency, and focus on delivering more value-add services
Discover what IT Professionals Know. Rescue delivers
http://p.sf.net/sfu/logmein_12329d2d