Action:
|
Determines if a Scheme object is a position.
|
|
Filename:
|
kern/kern_scm/pos_scm.cxx
|
|
Syntax:
|
(position? object)
|
|
Arg Types:
|
object
|
scheme-object
|
|
Returns:
|
boolean
|
|
|
object specifies the
scheme-object that has to be queried for a position.
|
|
Example:
|
; position?
|
|
; Determine if a position is a position.
|
|
(define pos1 (position 5 10 15))
|
|
;; pos1
|
|
(position? pos1)
|
|
;; #t
|
|
(position? (position 6 5 8))
|
|
;; #t
|
|
; Determine if a gvector is a position.
|
|
(position? (gvector 0 0 0))
|
|
;; #f
|
|
; Determine if a value is a position.
|
|
(position? -4)
|
|
;; #f
|
|
; Define a new position.
|
|
(define pts (position 10 10 10))
|
|
;; pts
|
|
; Determine if the new position is a position.
|
|
(position? pts)
|
|
;; #t
|