mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Allow peval to gnaw on string->symbol, symbol->string

Browse source 
* module/language/tree-il/primitives.scm (*interesting-primitive-names*):
  (*effect-free-primitives*): Add string->symbol and symbol->string.
This commit is contained in:
Andy Wingo 2018-01-05 15:17:46 +01:00
parent 6fdbd3b17b
commit a821042480
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/language/tree-il/primitives.scm
View file

@ -1,6 +1,6 @@
;;; open-coding primitive procedures ;;; open-coding primitive procedures
;; Copyright (C) 2009-2015, 2017 Free Software Foundation, Inc. ;; Copyright (C) 2009-2015, 2017-2018 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
@ -54,6 +54,8 @@
pair? null? list? symbol? vector? string? struct? number? char? nil? pair? null? list? symbol? vector? string? struct? number? char? nil?
bytevector? keyword? bitvector? bytevector? keyword? bitvector?
symbol->string string->symbol
procedure? thunk? procedure? thunk?
complex? real? rational? inf? nan? integer? exact? inexact? even? odd? complex? real? rational? inf? nan? integer? exact? inexact? even? odd?
@ -178,6 +180,7 @@
exact-integer? exact-integer?
char<? char<=? char>=? char>? char<? char<=? char>=? char>?
integer->char char->integer number->string string->number integer->char char->integer number->string string->number
symbol->string string->symbol
struct-vtable struct-vtable
length string-length vector-length bytevector-length length string-length vector-length bytevector-length
;; These all should get expanded out by expand-primitives. ;; These all should get expanded out by expand-primitives.