#NEWLINE# @ expose ( 'continuation-mark-set-first' , [ values . W_Object , values . W_Object , default ( values . W_Object , values . w_false ) , default ( values . W_Object , values . w_default_continuation_prompt_tag ) ] , simple = False ) #NEWLINE# def cms_first( cms , mark , missing , prompt_tag , env , cont ) : #NEWLINE# #INDENT# from pycket.interpreter import return_value #NEWLINE# is_cmk = isinstance ( mark , values . W_ContinuationMarkKey ) #NEWLINE# m = ( imp . get_base_object ( mark ) if is_cmk else mark ) #NEWLINE# if ( cms is values . w_false ) : #NEWLINE# #INDENT# the_cont = cont #NEWLINE# v = cont . get_mark_first ( m , upto = [ prompt_tag ] ) #NEWLINE# #UNINDENT# else : #NEWLINE# #INDENT# if isinstance ( cms , values . W_ContinuationMarkSet ) : #NEWLINE# #INDENT# the_cont = cms . cont #NEWLINE# v = cont . get_mark_first ( m , upto = [ prompt_tag , cms . prompt_tag ] ) #NEWLINE# #UNINDENT# else : #NEWLINE# #INDENT# raise SchemeException ( 'Expected #f or a continuation-mark-set' ) #NEWLINE# #UNINDENT# #UNINDENT# val = ( v if ( v is not None ) else missing ) #NEWLINE# if is_cmk : #NEWLINE# #INDENT# return mark . get_cmk ( val , env , cont ) #NEWLINE# #UNINDENT# return return_value ( val , env , cont )