]> gitweb.factorcode.org Git - factor.git/commitdiff
cpu.arm.assembler.opcodes: don't use sequences.extras.
authorJohn Benediktsson <mrjbq7@gmail.com>
Mon, 30 Nov 2020 22:01:26 +0000 (14:01 -0800)
committerJohn Benediktsson <mrjbq7@gmail.com>
Mon, 30 Nov 2020 22:01:26 +0000 (14:01 -0800)
basis/cpu/arm/assembler/opcodes/opcodes.factor

index 856b4a0cb551271a9b737e52930fc2e51a8fcb14..d4991c60a1247809cf49296b8cbe13d1e613b517 100644 (file)
@@ -1,9 +1,8 @@
 ! Copyright (C) 2020 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors assocs classes.error classes.parser effects
-effects.parser fry kernel lexer math math.bitwise math.parser
-multiline parser sequences sequences.extras vocabs.parser words
-words.symbol ;
+effects.parser kernel lexer math math.bitwise math.parser
+multiline parser sequences vocabs.parser words words.symbol ;
 IN: cpu.arm.assembler.opcodes
 
 ! https://static.docs.arm.com/ddi0487/fb/DDI0487F_b_armv8_arm.pdf
@@ -297,7 +296,7 @@ M: object value ;
 
 : arm-bitfield ( seq -- assoc )
     [ current-vocab name>> ?lookup-word ] map
-    [ width ] map-zip
+    [ dup width ] map>alist
     dup values [ f = ] any? [ throw ] when ;
 
 ERROR: bad-instruction values ;