joy-in-the-morning/lib/joy/forth.joy

(* forth.joy -- Forth-isms for Joy.
   Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
  
   Joy is free software; you can redistribute it and/or modify it under
   the terms of the GNU General Public License as published by the Free
   Software Foundation; either version 3 of the License, or (at your
   option) any later version.
  
   Joy is distributed in the hope that it will be useful, but WITHOUT
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
   License for more details.
  
   You should have received a copy of the GNU General Public License
   along with Joy.  If not, see <http://www.gnu.org/licenses/>.
*)

"base" include

DEFINE
  drop == pop ;
  over == dupd swap ;
  nip  == popd ;
  tuck == dup swapd ;
  rot  == dig2 ;
  -rot == bury2 ;
  pick == stack rest swap at ;

  /mod == divmod ;
  within  == [dupd >] dip swap [<] dip and ;
  within? == succ within ;

  cr   == newline ;
  bl   == " " first ;
  emit == putch ;
END