Action:
|
Determines if a Scheme object is a shell.
|
|
Filename:
|
kern/kern_scm/ent_scm.cxx
|
|
Syntax:
|
(shell? object)
|
|
Arg Types:
|
object
|
scheme-object
|
|
Returns:
|
boolean
|
|
Description:
|
This extension returns
#t if the specified object is a shell; otherwise, it returns #f.
|
|
|
object specifies the
scheme-object to be queried for a shell.
|
|
Example:
|
; shell?
|
|
; Create a solid block.
|
|
(define block1
|
|
|
(solid:block (position 0 0 0) (position 8 8 8)))
|
|
;; block1
|
|
; Get a list of the block's shells.
|
|
(define shells1
|
|
|
(entity:shells block1))
|
|
;; shells1
|
|
; Determine if one of the shells
|
|
; is actually a shell.
|
|
(shell? (car shells1))
|
|
;; #t
|
|
; Determine if the block is a shell.
|
|
(shell? block1)
|
|
;; #f
|