mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

Avoid consing an unbound-arg marker in the evaluator

Browse source 
* module/ice-9/eval.scm (primitive-eval): Turns out we don't need to
  cons to make the unbound-arg marker.
This commit is contained in:
Andy Wingo 2014-04-13 12:21:36 +02:00
parent 32e62c2dae
commit 1487367e21
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
module/ice-9/eval.scm
View file

@ -1,6 +1,6 @@
;;; -*- mode: scheme; coding: utf-8; -*- ;;; -*- mode: scheme; coding: utf-8; -*-
;;;; Copyright (C) 2009, 2010, 2011, 2012, 2013 Free Software Foundation, Inc. ;;;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -329,8 +329,12 @@
;; of arguments, and some rest arities; see make-fixed-closure and ;; of arguments, and some rest arities; see make-fixed-closure and
;; make-rest-closure above. ;; make-rest-closure above.
;; A unique marker for unbound keywords. ;; A unique marker for unbound keywords. NB: There should be no
(define unbound-arg (list 'unbound-arg)) ;; other instance of '(unbound-arg) in this compilation unit, so
;; that this marker is indeed unique. It's a hack, but it allows
;; the constant to propagate to inner closures, reducing free
;; variable counts all around, so it is important for perf.
(define unbound-arg '(unbound-arg))
;; Procedures with rest, optional, or keyword arguments, potentially with ;; Procedures with rest, optional, or keyword arguments, potentially with
;; multiple arities, as with case-lambda. ;; multiple arities, as with case-lambda.