diff options
Diffstat (limited to 'module/system/base')
-rw-r--r-- | module/system/base/lalr.scm | 3 | ||||
-rw-r--r-- | module/system/base/types.scm | 17 | ||||
-rw-r--r-- | module/system/base/types/internal.scm | 6 |
3 files changed, 9 insertions, 17 deletions
diff --git a/module/system/base/lalr.scm b/module/system/base/lalr.scm index 49e7e8d46..55e5e6c87 100644 --- a/module/system/base/lalr.scm +++ b/module/system/base/lalr.scm @@ -1,6 +1,6 @@ ;;; -*- mode: scheme; coding: utf-8; -*- ;;; -;;; Copyright (C) 2010 Free Software Foundation, Inc. +;;; Copyright (C) 2010, 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 License as published by @@ -21,6 +21,7 @@ ;; compiler) complains about `lexical-token' being unbound when expanding ;; `(define-record-type lexical-token ...)' if we omit it. #:use-module (srfi srfi-9) + #:use-module (ice-9 source-properties) #:export (lalr-parser print-states diff --git a/module/system/base/types.scm b/module/system/base/types.scm index c1899bdb0..5ecdea4cd 100644 --- a/module/system/base/types.scm +++ b/module/system/base/types.scm @@ -454,20 +454,13 @@ using BACKEND." (make-pointer address)) (((_ & #x7f = %tc7-keyword) symbol) (symbol->keyword (cell->object symbol backend))) - (((_ & #x7f = %tc7-syntax) expression wrap module) - (cond-expand - (guile-2.2 - (make-syntax (cell->object expression backend) - (cell->object wrap backend) - (cell->object module backend))) - (else - (inferior-object 'syntax address)))) + (((_ & #x7f = %tc7-syntax) expression wrap module source) + (make-syntax (cell->object expression backend) + (cell->object wrap backend) + (cell->object module backend) + (cell->object source backend))) (((_ & #x7f = %tc7-vm-continuation)) (inferior-object 'vm-continuation address)) - (((_ & #x7f = %tc7-weak-set)) - (inferior-object 'weak-set address)) - (((_ & #x7f = %tc7-weak-table)) - (inferior-object 'weak-table address)) (((_ & #x7f = %tc7-array)) (inferior-object 'array address)) (((_ & #x7f = %tc7-bitvector)) diff --git a/module/system/base/types/internal.scm b/module/system/base/types/internal.scm index b739f9a9a..8d7f29088 100644 --- a/module/system/base/types/internal.scm +++ b/module/system/base/types/internal.scm @@ -51,8 +51,6 @@ %tc7-vm-continuation %tc7-bytevector %tc7-thread - %tc7-weak-set - %tc7-weak-table %tc7-array %tc7-bitvector %tc7-port @@ -148,8 +146,8 @@ (vm-continuation vm-continuation? #b1111111 #b1000111) (bytevector bytevector? #b1111111 #b1001101) (thread thread? #b1111111 #b1001111) - (weak-set weak-set? #b1111111 #b1010101) - (weak-table weak-table? #b1111111 #b1010111) + ;;(unused unused #b1111111 #b1010101) + ;;(unused unused #b1111111 #b1010111) (array array? #b1111111 #b1011101) (bitvector bitvector? #b1111111 #b1011111) (finalizer finalizer? #b1111111 #b1100101) |