diff options
Diffstat (limited to 'test-suite/tests/coverage.test')
-rw-r--r-- | test-suite/tests/coverage.test | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/test-suite/tests/coverage.test b/test-suite/tests/coverage.test index 5f393b6b0..d1b954cd5 100644 --- a/test-suite/tests/coverage.test +++ b/test-suite/tests/coverage.test @@ -1,6 +1,6 @@ ;;;; coverage.test --- Code coverage. -*- mode: scheme; coding: utf-8; -*- ;;;; -;;;; Copyright (C) 2010, 2011, 2012, 2013, 2014, 2015, 2017 Free Software Foundation, Inc. +;;;; Copyright (C) 2010, 2011, 2012, 2013, 2014, 2015, 2017, 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 @@ -30,8 +30,7 @@ ((_ filename snippet) (let ((input (open-input-string snippet))) (set-port-filename! input filename) - (read-enable 'positions) - (compile (read input)))))) + (compile (read-syntax input)))))) (define test-procedure (compile '(lambda (x) |