classes.builtin: Add the BUILTIN: keyword which lets builtin classes show up in sourc...

[factor.git] / core / alien / alien.factor

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index 64401816220a1f88fe90bae3c6d763c91e7fc01c..43617f451e4eaf6d0b51cfd9dbedf628aba23988 100755 (executable)
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -4,6 +4,9 @@ USING: accessors byte-arrays byte-vectors continuations.private
 init kernel kernel.private math namespaces sequences ;
 IN: alien
 
+BUILTIN: alien { underlying c-ptr read-only initial: f } expired ;
+BUILTIN: dll { path byte-array read-only initial: B{ } } ;
+
 PREDICATE: pinned-alien < alien underlying>> not ;
 
 UNION: pinned-c-ptr pinned-alien POSTPONE: f ;