bug#50609: number overflow

This does not compile on guile 3.0.7, (define (f . l) (let lp2 ((i 0) (s 0) (l l)) (if (and (pair? l) (< i 64)) (lp2 (+ i 1) (if (car l) (logior (ash 1 i) s) s) (cdr l)) s))) While compiling expression: Throw to key `numerical-overflow' with args `("ash" "Numerical ove rfl

bug#50608: Fix for ‘, trace (method ()) --> no applicable method for ...’

Hi guile, Attached is a fix for and a similar issue for 'procedure-name'. Greetings, Maxime. From fe518ed4fb2c7e55f69a229349e3183ccfdcfc97 Mon Sep 17 00:00:00 2001 From: Maxime Devos Date: Wed, 15 Sep 2021 19:57:20 +0200 Subject: [PATCH 1/2]

bug#50608: ,trace (method ()) --> no applicable method for ...

Hi guile, Try running the following from a repl: (use-modules (oop goops)) (method ()) ;; --> $1 = #< () 7fbb1bcb47c0> ,trace (method ()) ---> [...] trace: | | (_ #< 7fbb1bc67c80> (#:specializers () #:formals () #:body ((if #f …)) …)) trace: | | | (struct-ref/unboxed #< 7fbb1bc67c80> 5) t