Hi,
I am getting this error message:
WARNING: (guile-user): imported module (srfi srfi-60) overrides core
binding `bit-count'
What is this trying to say? I just need the arithmetic-shift
function. Thank you.
On Jun 24, 2010, at 09:03, Andy Wingo wrote:
> There are actually two kinds of begin: one in definition context and one
> in expression context. The former takes 0 or more forms, and splices
> those forms into the input, where the (begin ...) appears. The other
> takes 1 or more expressions, and ev
Hi,
On Thu 24 Jun 2010 09:52, Michael Lucy writes:
> scheme@(guile-user)> ,c (begin a b 1)
> Disassembly of #:
>
>0(assert-nargs-ee/locals 0)
>2(load-symbol "a") ;; a
>7(link-now)
>8(variable-ref)
>9(drop)
> 10(load-symbol "b")
Greets,
On Tue 22 Jun 2010 23:32, l...@gnu.org (Ludovic Courtès) writes:
> Andy Wingo writes:
>
>> Nasty, but OK I guess if you need it. Why not also add a fast path for
>> scm_is_eq (s1, s2), or for comparing stringbufs, or something ?
>
> Hmm yes. Though if there are too many fast paths the w
On Thu 24 Jun 2010 08:55, Ken Raeburn writes:
> Hmm... here's another way, though I've no idea if RnRS lets you not have
> any expressions in here:
>
> scheme@(guile-user)> ,c (begin)
There are actually two kinds of begin: one in definition context and one
in expression context. The former takes
Hi Michael,
On Thu 24 Jun 2010 01:23, Michael Lucy writes:
> scheme@(guile-user)> ,c (begin (set! x 1) *unspecified*)
> Disassembly of #:
>
>0(assert-nargs-ee/locals 0)
>2(make-int8:1) ;; 1
>3(load-symbol "x") ;; x
>8(link-now)
>
On Thu, Jun 24, 2010 at 1:55 AM, Ken Raeburn wrote:
> On Jun 23, 2010, at 17:09, Michael Lucy wrote:
>> Is there any scheme expression that will just get ignored when the
>> scheme code is compiled?
>>
>> I'm generating some code with a function like:
>>
>> (define (gen-update-ab updatea updateb)
() Ken Raeburn
() Thu, 24 Jun 2010 02:55:59 -0400
Hmm... here's another way, though I've no idea if RnRS lets you not have
any expressions in here:
scheme@(guile-user)> ,c (begin)
Disassembly of #:
0(assert-nargs-ee/locals 0)
2(v
