From 7a033876b639a277c91c32384be8e2cce5d97ae5 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 22 Feb 2009 19:20:28 -0600 Subject: [PATCH] use ?at instead of at* --- basis/alien/fortran/fortran.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/alien/fortran/fortran.factor b/basis/alien/fortran/fortran.factor index 915b7d3d4f..5e3dc24476 100644 --- a/basis/alien/fortran/fortran.factor +++ b/basis/alien/fortran/fortran.factor @@ -170,8 +170,8 @@ M: character-type (fortran-type>c-type) : (parse-fortran-type) ( fortran-type-string -- type ) parse-out swap parse-dims swap parse-size swap - dup >lower fortran>c-types at* - [ nip new-fortran-type ] [ drop misc-type boa ] if ; + >lower fortran>c-types ?at + [ new-fortran-type ] [ misc-type boa ] if ; : parse-fortran-type ( fortran-type-string/f -- type/f ) dup [ (parse-fortran-type) ] when ;