summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-03-06 17:57:20 +0100
committerLudovic Courtès <ludo@gnu.org>2020-03-06 18:06:51 +0100
commitd49453259bf97aed6d7e41d1bb364b62310c088f (patch)
treef4a6e70364d452c5b7e9e82a5f3331330e638db8 /module
parent5d96e421586fa93d6d110c7c139ed6abd158e6e4 (diff)
downloadguile-d49453259bf97aed6d7e41d1bb364b62310c088f.tar.gz
Fix expansion of 'error' primitive with a non-constant argument.
Fixes <https://bugs.gnu.org/39509>. Reported by Klaus Stehle <klaus.stehle@uni-tuebingen.de>. * module/language/tree-il/primitives.scm (error): Remove extra "?" argument when the first argument is not a constant. * test-suite/tests/tree-il.test ("primitives")["error"]: New test prefix.
Diffstat (limited to 'module')
-rw-r--r--module/language/tree-il/primitives.scm3
1 files changed, 1 insertions, 2 deletions
diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm
index 550921787..300080d45 100644
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -1,6 +1,6 @@
;;; open-coding primitive procedures
-;; Copyright (C) 2009-2015, 2017-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2009-2015, 2017-2020 Free Software Foundation, Inc.
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -395,7 +395,6 @@
(list (make-const src 'misc-error)
(make-const src #f)
(make-const src msg)
- (make-const src "?")
(make-primcall src 'list (cons message args))
(make-const src #f)))))))