[Guile-commits] 06/07: Allow peval to gnaw on string->symbol, symbol->string

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit a8210424803ffb777325bb4b8d2e358685a634be
Author: Andy Wingo <wi...@pobox.com>
Date:   Fri Jan 5 15:17:46 2018 +0100

    Allow peval to gnaw on string->symbol, symbol->string
    
    * module/language/tree-il/primitives.scm (*interesting-primitive-names*):
      (*effect-free-primitives*): Add string->symbol and symbol->string.
---
 module/language/tree-il/primitives.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/module/language/tree-il/primitives.scm 
b/module/language/tree-il/primitives.scm
index c9e1fc0..934b5c7 100644
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -1,6 +1,6 @@
 ;;; 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
 ;;;; 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?
     bytevector? keyword? bitvector?
 
+    symbol->string string->symbol
+
     procedure? thunk?
 
     complex? real? rational? inf? nan? integer? exact? inexact? even? odd?
@@ -178,6 +180,7 @@
     exact-integer?
     char<? char<=? char>=? char>?
     integer->char char->integer number->string string->number
+    symbol->string string->symbol
     struct-vtable
     length string-length vector-length bytevector-length
     ;; These all should get expanded out by expand-primitives.