mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

Emit char? instead of br-if-char

Browse source 
* module/language/cps/compile-bytecode.scm (compile-function): Use new
  instructions for char? test.
This commit is contained in:
Andy Wingo 2017-10-26 21:30:06 +02:00
parent 29b8e32ffe
commit e3c062dce6
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/compile-bytecode.scm
View file

@ -437,7 +437,7 @@
(($ $primcall 'nil? (a)) (unary/old emit-br-if-nil a))
(($ $primcall 'pair? (a)) (unary emit-pair? a))
(($ $primcall 'struct? (a)) (unary emit-struct? a))
(($ $primcall 'char? (a)) (unary/old emit-br-if-char a))
(($ $primcall 'char? (a)) (unary emit-char? a))
(($ $primcall 'symbol? (a)) (unary emit-symbol? a))
(($ $primcall 'variable? (a)) (unary emit-variable? a))
(($ $primcall 'vector? (a)) (unary emit-vector? a))