From 486b322fd5ab4211870c877b6ebe8bb386d76589 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 2 Feb 2016 11:09:00 +0100 Subject: [PATCH] Fix frame-call-representation for change to . * module/system/vm/frame.scm (frame-call-representation): Fix for change to . --- module/system/vm/frame.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/module/system/vm/frame.scm b/module/system/vm/frame.scm index 565177e4c..c9090ef36 100644 --- a/module/system/vm/frame.scm +++ b/module/system/vm/frame.scm @@ -1,6 +1,6 @@ ;;; 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 ;;; modify it under the terms of the GNU Lesser General Public @@ -385,7 +385,7 @@ (define (find-slot i bindings) (match bindings (() #f) - (((and binding ($ idx name slot)) . bindings) + (((and binding ($ frame idx name slot)) . bindings) (if (< idx i) (find-slot i bindings) (and (= idx i) binding)))))