diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-08 16:49:04 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-08 16:49:04 +0100 |
commit | ad9b491fa72ea5bac2d463ba383aa812c644c5dd (patch) | |
tree | 46c3373767d73b18a86da6cb70b65f4e9c3b1f4c /module | |
parent | f3c0b533468990a59f3495bdbde5c73b6a9bf8a6 (diff) | |
download | guile-ad9b491fa72ea5bac2d463ba383aa812c644c5dd.tar.gz |
Remove bytecode language.
* module/language/bytecode/spec.scm: Remove.
* module/Makefile.am: Adapt.
Diffstat (limited to 'module')
-rw-r--r-- | module/Makefile.am | 4 | ||||
-rw-r--r-- | module/language/bytecode/spec.scm | 40 |
2 files changed, 0 insertions, 44 deletions
diff --git a/module/Makefile.am b/module/Makefile.am index 2d2706ddd..d5ade221f 100644 --- a/module/Makefile.am +++ b/module/Makefile.am @@ -53,7 +53,6 @@ SOURCES = \ $(TREE_IL_LANG_SOURCES) \ $(CPS_LANG_SOURCES) \ $(RTL_LANG_SOURCES) \ - $(BYTECODE_LANG_SOURCES) \ $(OBJCODE_LANG_SOURCES) \ $(VALUE_LANG_SOURCES) \ $(SCHEME_LANG_SOURCES) \ @@ -132,9 +131,6 @@ RTL_LANG_SOURCES = \ language/rtl.scm \ language/rtl/spec.scm -BYTECODE_LANG_SOURCES = \ - language/bytecode/spec.scm - OBJCODE_LANG_SOURCES = \ language/objcode/spec.scm \ language/objcode/elf.scm diff --git a/module/language/bytecode/spec.scm b/module/language/bytecode/spec.scm deleted file mode 100644 index ca703c33c..000000000 --- a/module/language/bytecode/spec.scm +++ /dev/null @@ -1,40 +0,0 @@ -;;; Guile Lowlevel Intermediate Language - -;; Copyright (C) 2001, 2009, 2010, 2012, 2013 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 the Free Software Foundation; either -;;;; version 3 of the License, or (at your option) any later version. -;;;; -;;;; This library is distributed in the hope that it will be useful, -;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;;; Lesser General Public License for more details. -;;;; -;;;; You should have received a copy of the GNU Lesser General Public -;;;; License along with this library; if not, write to the Free Software -;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA - -;;; Code: - -(define-module (language bytecode spec) - #:use-module (system base language) - #:use-module (system base target) - #:use-module (system vm objcode) - #:export (bytecode)) - -(define (compile-objcode x e opts) - (values (bytecode->objcode x (target-endianness)) e e)) - -(define (decompile-objcode x e opts) - (values (objcode->bytecode x (target-endianness)) e)) - -(define-language bytecode - #:title "Guile Bytecode Vectors" - #:reader (lambda (port env) (read port)) - #:printer write - #:compilers `((objcode . ,compile-objcode)) - #:decompilers `((objcode . ,decompile-objcode)) - #:for-humans? #f - ) |