{{{  comments
; append the current line to the previous line and delete all spaces
; between the lines. Calling this when one of the lines isn't a text-line
; stops the macro with errormessage ``oops''.
}}}
@if-using not(APPEND)
  @use (APPEND)
  {{{  libs
  {{{F fun/error
  :::F fun/error
  }}}
  {{{F fun/delspaces
  :::F fun/delspaces
  }}}
  }}}
  {{{  append-to-previous-line
  ( deffun append-to-previous-line
     ( if not(test-text) ( failed ) fi
       previous-line
       if not(test-text) ( failed ) fi
       end-of-line
       delete-character
       delspaces
     )
  )
  }}}
@fi
