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

Fix order of evaluation in elisp lexer

Browse source 
* module/language/elisp/lexer.scm (lex): Use let*, to ensure that the
  port position is read before reading the next char.
This commit is contained in:
Andy Wingo 2013-11-01 18:23:51 +01:00
parent b681671ede
commit 14b9aa95e6
1 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/elisp/lexer.scm
View file

@ -1,6 +1,6 @@
;;; Guile Emacs Lisp
;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
;;; Copyright (C) 2009, 2010, 2013 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
@ -261,7 +261,7 @@
(and=> (regexp-exec lexical-binding-regexp string)
(lambda (match)
(not (member (match:substring match 2) '("nil" "()"))))))
(let ((return (let ((file (if (file-port? port)
(let* ((return (let ((file (if (file-port? port)
(port-filename port)
#f))
(line (1+ (port-line port)))