diff options
author | Andy Wingo <wingo@pobox.com> | 2025-05-12 15:56:47 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2025-05-12 16:29:04 +0200 |
commit | e3b743dc7252326c8052d1b9e6dc2b48cc685730 (patch) | |
tree | 13f7c33b5a8235ccbbb3e0660ab15fdedf0b9772 /test-suite/tests/srcprop.test | |
parent | b6b6f625486a5703320b1d46fd2789da8370ca35 (diff) | |
download | guile-wip-whippet.tar.gz |
Move source properties out to a modulewip-whippet
* module/ice-9/source-properties.scm: New file, providing the
source-properties API, as well as a replacement for `read' that always
attaches source properties, regardless of the 'positions option on the
port.
* am/bootstrap.am (SOURCES): Add the new file.
* libguile/srcprop.c:
* libguile/srcprop.h: Remove.
* libguile/Makefile.am (libguile_@GUILE_EFFECTIVE_VERSION@_la_SOURCES):
(DOT_X_FILES):
(DOT_DOC_FILES):
(modinclude_HEADERS):
* libguile.h: Remove srcprop.h.
* libguile/deprecated.c:
* libguile/deprecated.h: Add deprecation shims for srcprop.h interface.
* libguile/backtrace.c:
* libguile/debug.c:
* libguile/eval.c:
* libguile/init.c:
* libguile/memoize.c:
* libguile/promises.c:
* libguile/read.c:
* libguile/syntax.c: Remove needless srcprop.h includes.
* module/ice-9/boot-9.scm: Reorder some definitions so that deprecated
modules can use the (system syntax internal) module.
* module/ice-9/deprecated.scm: Add shims for Scheme source-properties
interface.
* module/ice-9/read.scm (read): Never attach source properties. Users
that want source can use read-syntax.
* module/language/cps.scm:
* module/language/cps/spec.scm:
* module/language/ecmascript/compile-tree-il.scm:
* module/language/elisp/compile-tree-il.scm:
* module/language/elisp/lexer.scm:
* module/language/elisp/parser.scm:
* module/language/tree-il.scm:
* module/language/tree-il/spec.scm:
* module/language/wisp.scm:
* module/system/base/lalr.scm:
* test-suite/tests/elisp-reader.test:
* test-suite/tests/reader.test:
* test-suite/tests/srcprop.test:
* test-suite/tests/srfi-105.test:
* test-suite/tests/srfi-119.test: Use the (ice-9 source-properties)
module to get access to source properties.
Diffstat (limited to 'test-suite/tests/srcprop.test')
-rw-r--r-- | test-suite/tests/srcprop.test | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/test-suite/tests/srcprop.test b/test-suite/tests/srcprop.test index 4afc31802..d5f27744f 100644 --- a/test-suite/tests/srcprop.test +++ b/test-suite/tests/srcprop.test @@ -1,6 +1,6 @@ ;;;; srcprop.test --- test Guile source properties -*- scheme -*- ;;;; -;;;; Copyright (C) 2003, 2006, 2009 Free Software Foundation, Inc. +;;;; Copyright (C) 2003, 2006, 2009, 2025 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 @@ -17,7 +17,8 @@ ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (define-module (test-suite test-srcprop) - :use-module (test-suite lib)) + #:use-module (ice-9 source-properties) + #:use-module (test-suite lib)) ;;; @@ -29,7 +30,6 @@ (pass-if "no props" (null? (source-properties (list 1 2 3)))) - (read-enable 'positions) (with-test-prefix "read properties" (define (reads-with-srcprops? str) (let ((x (read (open-input-string str)))) @@ -76,8 +76,6 @@ ;;; (with-test-prefix "set-source-property!" - (read-enable 'positions) - (pass-if "setting the breakpoint property works" (let ((s (read (open-input-string "(+ 3 4)")))) (throw 'unresolved) @@ -100,8 +98,6 @@ ;;; (with-test-prefix "set-source-properties!" - (read-enable 'positions) - (pass-if "setting the breakpoint property works" (let ((s (read (open-input-string "(+ 3 4)")))) (throw 'unresolved) |