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

read-enable 'positions by default

Browse source 
* libguile/read.c (scm_read_opts): Default "positions" to #t.  The
  compiler was already turning it on anyway, and this allows
  primitive-load without --auto-compile to also propagate source
  information through the expander, for better errors and to let macros
  know their source.

* module/language/scheme/spec.scm: No need to enable positions here
  now.
This commit is contained in:
Andy Wingo 2011-02-13 15:04:08 +01:00
parent d7265e376d
commit 6c51a40ace
2 changed files with 2 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/read.c
View file

@ -66,7 +66,7 @@ SCM_SYMBOL (sym_nil, "nil");
scm_t_option scm_read_opts[] = { scm_t_option scm_read_opts[] = {
{ SCM_OPTION_BOOLEAN, "copy", 0, { SCM_OPTION_BOOLEAN, "copy", 0,
"Copy source code expressions." }, "Copy source code expressions." },
{ SCM_OPTION_BOOLEAN, "positions", 0, { SCM_OPTION_BOOLEAN, "positions", 1,
"Record positions of source code expressions." }, "Record positions of source code expressions." },
{ SCM_OPTION_BOOLEAN, "case-insensitive", 0, { SCM_OPTION_BOOLEAN, "case-insensitive", 0,
"Convert symbols to lower case."}, "Convert symbols to lower case."},

8
module/language/scheme/spec.scm
View file

@ -1,6 +1,6 @@
;;; Guile Scheme specification ;;; Guile Scheme specification
;; Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc. ;; Copyright (C) 2001, 2009, 2010, 2011 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
@ -25,12 +25,6 @@
#:use-module (language scheme decompile-tree-il) #:use-module (language scheme decompile-tree-il)
#:export (scheme)) #:export (scheme))
;;;
;;; Reader
;;;
(read-enable 'positions)
;;; ;;;
;;; Language definition ;;; Language definition
;;; ;;;