mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Fix frame-call-representation for change to <binding>.

Browse source 
* module/system/vm/frame.scm (frame-call-representation): Fix for change
  to <binding>.
This commit is contained in:
Andy Wingo 2016-02-02 11:09:00 +01:00
parent a653271f98
commit 486b322fd5
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/system/vm/frame.scm
View file

@ -1,6 +1,6 @@
;;; Guile VM frame functions ;;; Guile VM frame functions
;;; Copyright (C) 2001, 2005, 2009, 2010, 2011, 2012, 2013, 2014, 2015 Free Software Foundation, Inc. ;;; Copyright (C) 2001, 2005, 2009-2016 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
@ -385,7 +385,7 @@
(define (find-slot i bindings) (define (find-slot i bindings)
(match bindings (match bindings
(() #f) (() #f)
(((and binding ($ <binding> idx name slot)) . bindings) (((and binding ($ <binding> frame idx name slot)) . bindings)
(if (< idx i) (if (< idx i)
(find-slot i bindings) (find-slot i bindings)
(and (= idx i) binding))))) (and (= idx i) binding)))))