mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Remove unneeded local exact-integer? definition

Browse source 
* module/system/vm/assembler.scm (link-debug): Remove unneeded
  exact-integer? definition.
This commit is contained in:
Andy Wingo 2014-03-28 14:23:51 +01:00
parent 9a1dfb7d2e
commit 0534735314
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/system/vm/assembler.scm
View file

@ -1954,9 +1954,6 @@ procedure with label @var{rw-init}. @var{rw-init} may be false. If
('language (language-name->code val))
('stmt-list val)))
(define (exact-integer? val)
(and (number? val) (integer? val) (exact? val)))
(define (choose-form attr val code)
(cond
((string? val) 'strp)