GNU bug report logs - #33652
let/ec bug

Previous Next

Package: guile;

Reported by: Stefan Israelsson Tampe <stefan.itampe <at> gmail.com>

Date: Thu, 6 Dec 2018 22:36:01 UTC

Severity: normal

Tags: fixed

Done: Ludovic Courtès <ludo <at> gnu.org>

Bug is archived. No further changes may be made.

Full log

View this message in rfc822 format

From: Stefan Israelsson Tampe <stefan.itampe <at> gmail.com>
To: 33652 <at> debbugs.gnu.org
Subject: bug#33652: Possible fix
Date: Wed, 12 Dec 2018 22:45:49 +0100

[Message part 1 (text/plain, inline)]
When I apply this to head master:

diff --git a/module/language/cps/simplify.scm b/module/language/cps/simpl
ify.scm
index 311566043..b6fcffcd1 100644
--- a/module/language/cps/simplify.scm
+++ b/module/language/cps/simplify.scm
@@ -149,6 +149,9 @@
              (($ $kargs names syms ($ $branch kf kt src op param args))
               ($kargs names syms
                 ($branch (subst kf) (subst kt) src op param args)))
+              (($ $kargs names syms ($ $prompt k kh src escape? tag))
+               ($kargs names syms
+                 ($prompt (subst k) (subst kh) src escape? tag)))
              (($ $kargs names syms ($ $continue k src ($ $const val)))
               ,(match (intmap-ref conts k)
                  (($ $kargs (_)

Things compiles just fine

Regards
Stefan

[Message part 2 (text/html, inline)]
This bug report was last modified 6 years and 10 days ago.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.