From 7c85fdc1e544617896cbf6fc2cdcf85a1d3f8794 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 19 May 2010 00:31:46 -0400 Subject: [PATCH] stack-checker.alien: callback and assembly quotations can be callables --- basis/stack-checker/alien/alien.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/stack-checker/alien/alien.factor b/basis/stack-checker/alien/alien.factor index 97b821225b..42c87f05b9 100644 --- a/basis/stack-checker/alien/alien.factor +++ b/basis/stack-checker/alien/alien.factor @@ -17,9 +17,9 @@ TUPLE: alien-invoke-params < alien-node-params library { function string } ; TUPLE: alien-indirect-params < alien-node-params ; -TUPLE: alien-assembly-params < alien-node-params { quot quotation } ; +TUPLE: alien-assembly-params < alien-node-params { quot callable } ; -TUPLE: alien-callback-params < alien-node-params { quot quotation } xt ; +TUPLE: alien-callback-params < alien-node-params { quot callable } xt ; : param-prep-quot ( params -- quot ) parameters>> [ c-type c-type-unboxer-quot ] map spread>quot ;